PivotTable.DataBodyRange (Excel)

Returns a Range object that represents the range of values in a PivotTable.

Dim rngDataBodyRange As Range
Set rngDataBodyRange = ActiveCell.PivotTable.DataBodyRange