PivotCell.Range (Excel)

Returns a Range object that represents the range that the specified PivotCell applies to.

Dim rngRange As Range
Set rngRange = ActiveCell.PivotCell.Range