Cómo crear un Rango Dinámico con Macros Aplicado a Tablas Dinámicas

Sub RANGO_DINAMICO()
Dim fila As Integer
fila = Range("A1").End(xlDown).Row
Debug.Print fila
Range("A1:E" & fila).Select
End Sub


Sub tabladinamica()
'
' tabladinamica Macro
'

'
Dim fila As Integer
Sheets("Base").Select
fila = Range("A1").End(xlDown).Row
Debug.Print fila
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Worksheets("Base").Range("A1:E" & fila), Version:=6).CreatePivotTable TableDestination:= _
Worksheets("TD").Range("A3"), TableName:="TablaDinámica3", DefaultVersion:=6
Sheets("TD").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("TablaDinámica3")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
End With
With ActiveSheet.PivotTables("TablaDinámica3").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("TablaDinámica3").RepeatAllLabels xlRepeatLabels
With ActiveSheet.PivotTables("TablaDinámica3").PivotFields("rfc")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("TablaDinámica3").AddDataField ActiveSheet.PivotTables( _
"TablaDinámica3").PivotFields("Subtotal"), "Suma de Subtotal", xlSum
With ActiveSheet.PivotTables("TablaDinámica3").PivotFields("fecha")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("TablaDinámica3").PivotFields("fecha").AutoGroup
End Sub