PivotField.DataRange (Excel)

Returns a Range object as shown in the following table.

Dim rngDataRange As Range
Set rngDataRange = ActiveCell.PivotField.DataRange