Макрос для сводной таблицы

[kipish_lp]

Здравствуйте! Записала макрос создания сводной таблицы, исправила там все, на что ума хватило. Подскажите, пожалуйста, можно ли убрать итоговые строки? Если да, то как это сделать?

[Serge 007]

Есть макрос от The Prist:

Sub Del_Subtotals()
    Dim oPivTbl As PivotTable, i As Integer
    For Each oPivTbl In ActiveSheet.PivotTables
        For i = 1 To oPivTbl.PivotFields.Count - 1
            oPivTbl.PivotFields(i).Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
        Next i
    Next oPivTbl
End Sub

[kipish_lp]

Красота! Спасибо большое!