PivotCell.Range (Excel)

Retorna um objeto Range que representa o intervalo ao qual o PivotCell especificado se aplica.

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