With PT

.ColumnGrand = False .RowGrand = False .NullString = "0" End With

1 Calc the pivot table PT.ManualUpdate = False PT.ManualUpdate = True

1 PT.TableRange2 contains the results. Move these to J10 1 as just values and not a real pivot table. PT.TableRange2.Offset(1, 0).Copy WSD.Range("J10").PasteSpecial xlPasteValues

1 At this point, the worksheet looks like Figure 12.8

1 Delete the original Pivot Table & the Pivot Cache PT.TableRange2.Clear Set PTCache = Nothing End Sub
0 0

Post a comment