PivotTable.PageRangeCells (Excel)

Returns a Range object that represents only the cells in the specified PivotTable report that contain the page fields and item drop-down lists.

Dim rngPageRangeCells As Range
Set rngPageRangeCells = ActiveCell.PivotTable.PageRangeCells