Excel VisualBasic Script

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