Range.PivotTable (Excel)

Returns a PivotTable object that represents the PivotTable report containing the upper-left corner of the specified range.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotTable