Range.PivotItem (Excel)

Retorna um objeto PivotItem que representa o item de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotItem