DataBodyRange Property
Returns a Range object that represents the range that contains the data area in the PivotTable report. Read-only.
Example
This example selects the active data range in the PivotTable report.
Worksheets("Sheet1").Activate
Range("A3").Select
ActiveCell.PivotTable.DataBodyRange.Select