PivotTable.TableRange1 (Excel)
Retorna um objeto Range que representa o intervalo que contém o relatório de tabela dinâmica inteiro, mas não inclui campos de página. Somente leitura.
A propriedade TableRange2 inclui campos de página.
Dim rngTableRange1 As Range
Set rngTableRange1 = ActiveCell.PivotTable.TableRange1