Add Method (CalculatedFields or CalculatedItems Collection) Example
This example adds a calculated field to the first PivotTable report on worksheet one.
Worksheets(1).PivotTables(1).CalculatedFields.Add "PxS", _ "= Product * Sales"