RowGrand Property Example
This example sets the PivotTable report to show grand totals for rows.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable pvtTable.RowGrand = True