Range.PivotItem (Excel)

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

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotItem