Люди подскажите как отключить перерасчет сводной таблицы при добавлении полей с данными. В EXCEL сначала накидаешь полей через мастер - и нажимаешь готово (РАСЧИТЫВАЕТСЯ ОДИН РАЗ) Если записать все в макрос , то расчитывает каждый раз при добавлении поля - и в результате все поля не берет

Set pvtCahe = .activeworkbook.PivotCaches.Add(SourceType:=1, SourceData:=diapazon)
With pvtCahe
.CreatePivotTable TableDestination:="'MAKEÒ_ '!R3C1", TableName:="ÑâîäíàÿÒàáëèöà1"
End With
With .ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà1")
.SmallGrid = False
.ColumnGrand = False
With .PivotFields("ÏÎÊÀÇÀÒÅËÜ")
.Orientation = 1
.Position = 1
End With
With .PivotFields("ÂÈÄ_ÄÅßÒ")
.Orientation = 1
.Position = 2
End With
With .PivotFields("ÏÐÅÄÏÐÈßÒÈÅ")
.Orientation = 1
.Position = 3
End With
With .PivotFields("ÐÀÇÄÅË")
.Orientation = 3
End With
For i = 1 To Kol_gr
gr_str = "GR" & Val(i + 2)
With .PivotFields(gr_str)
.Orientation = 4
.Caption = "SUM " & gr_str
.Position = i
.Function = -4157 'xlSum
End With
Next i
End With '.ActiveSheet.PivotTables
Set pvtCahe = Nothing

можно по подробнее
Как разом вставить все поля в область "Данные" сводный таблицы?

.AddDataField ActiveSheet.PivotTables( "PivotTable1").PivotFields("Score"), "Total Score"