remove the CalculatedItem by deleting it from either the CalculatedItems collection or the PivotItems collection of the PivotField:

 
Sub DeleteCalculatedItem()
     With ActiveSheet.PivotTables(1).PivotFields("Product")
         .PivotItems("Melons").Delete
     End With

End Sub

1.	Create Pivot Table From database
2.	Modifying Pivot Tables
3.	Creating a PivotTable Report
4.	PivotTables Collection
5.	Assign a value to the Orientation property of the PivotField object, as shown here:
6.	Redefines the layout of the fields in the existing Table, apart from the data field
7.	Add data field to PivotTable
8.	Visible Property
9.	add calculated items to a field using the Add method of the CalculatedItems collection
10.	adds a PivotTable based on the data from an Access database

remove the CalculatedItem by deleting it from either the CalculatedItems collection or the PivotItems collection of the PivotField: : PivotTable « Excel « VBA / Excel / Access / Word