Range.PivotTable (Excel)

Retorna um objeto PivotTable que representa o relatório de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotTable