This example adds a sum total to the PivotTable list in the active view.
Set view = PivotTable1.ActiveView
Set c = PivotTable1.Constants
Set newTotal = view.AddTotal("myTotal", view.FieldSets("Freight").Fields(0), c.plFunctionSum)
view.DataAxis.InsertTotal newTotal