Links: http://peltiertech.com/WordPress/referencing-pivot-table-ranges-in-vba/
"PivotTable" object in VBA help.
---
Sub PivotTest()
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables(1)
'pt.TableRange1.Select ' this selects the entire table, row and column headers included
pt.DataBodyRange.Select ' this selects the data rows in the pivot table - no columns or headers.
Debug.Print pt.DataBodyRange.Address
End Sub