Range.PivotTable (Excel)

Devuelve un objeto PivotTable que representa el informe de tabla dinámica que contiene la esquina superior izquierda del rango especificado.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotTable