PivotTable.PageRangeCells (Excel)
Devuelve un objeto Range que representa sólo las celdas del informe de tabla dinámica especificado que contienen los campos de página y las listas desplegables de elementos.
Dim rngPageRangeCells As Range
Set rngPageRangeCells = ActiveCell.PivotTable.PageRangeCells