MergeLabels Property Example
This example causes the first PivotTable report on worksheet one to use merged-cell outer-row item, column item, subtotal, and grand total labels.
Worksheets(1).PivotTables(1).MergeLabels = True