The following example adds a calculated field named Total Discount to the first PivotTable report on the active worksheet:

ActiveSheet.PivotTables(1).CalculatedFields.Add "Total Discount", _
        "=Discount + 'Promo Amount'", True

Note that the parameters Name & Formula (of data type String) are required.