Sub AddCalculatedItem() With ActiveSheet.PivotTables(1).PivotFields("Product") .CalculatedItems.Add Name:="Melons", Formula:="=Mangoes*1.5" End With End Sub