macro para ubicación de tablas dinámicas en excel

Sub Macro1()
'Paso 1: Declarar las variables
Dim ws As Worksheet
Dim pt As PivotTable
Dim MyCell As Range

'Paso 2: Agregar una nueva hoja con las cabeceras de columnas
Worksheets.Add
Range("A1:F1") = Array("Nombre_Tabla", "Hoja", "Ubicación_Tabla", "Cache Index", "Ubicación_Data", "Contador de Filas")

'Paso 3: Colocar el cursor en Celda A2
Set MyCell = ActiveSheet.Range("A2")

'Step 4: Bucle a través de cada hoja en el libro
For Each ws In Worksheets

'Step 5: Bucle a través de cada tabla dinámica
For Each pt In ws.PivotTables
MyCell.Offset(0, 0) = pt.Name
MyCell.Offset(0, 1) = pt.Parent.Name
MyCell.Offset(0, 2) = pt.TableRange2.Address
MyCell.Offset(0, 3) = pt.CacheIndex
MyCell.Offset(0, 4) = Application.ConvertFormula _
(pt.PivotCache.SourceData, xlR1C1, xlA1)
MyCell.Offset(0, 5) = pt.PivotCache.RecordCount

'Step 6: Movee Cursor y continuar con el llenado de la tabla resumen
Set MyCell = MyCell.Offset(1, 0)

'Step 7: Seguir trabajando a través de las tablas dinámicas y hojas
Next pt
Next ws

'Step 8: Ajustar tamaño de columnas
ActiveSheet.Cells.EntireColumn.AutoFit
End Sub