RE: copy paste entire pivot data Using VBA

[snb]

I'd use:

Sub M_snb()
   With Sheet1.PivotTables(1).TableRange1
       .Copy Sheet1.Cells(3, 9)
       .Copy Sheet1.Cells(.Rows.Count + 6, 9)
   End With
   
   With Sheet1.PivotTables(1)
        .PivotFields("Units").Orientation = 0
        .PivotFields("Sum of Total").Orientation = 0
        .CalculatedFields.Add("inversion", "= -1*Total").Orientation = 4
  End With
End Sub