The following Sub procedure loops through all the pivot tables in the active sheet and hides their grand totals:

Sub NoGrandTotal()

Dim pt As PivotTable

For Each pt In ActiveSheet.PivotTables
    pt.ColumnGrand = False
    pt.RowGrand = False
Next pt

End Sub