PivotTable.PageRange (Excel)

Returns a Range object that represents the range that contains the page area in the PivotTable report.

Dim rngPageRange As Range
Set rngPageRange = ActiveCell.PivotTable.PageRange