Range.PivotItem (Excel)

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

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotItem