Sub CreatePivotCaches()

Dim PTCache As PivotCache

Dim PT As PivotTable

Dim ff As Variant

Set PT = ActiveSheet.PivotTables(1)

'ff = PT.SourceData

Set PTCache = PT.PivotCache

' Добавление нового листа в сводную таблицу

Worksheets.Add

' Создание сводной таблицы

Set PT = ActiveSheet.PivotTables.Add( _

PivotCache:=PTCache, _

TableDestination:=Range("A3"))

' Добавление полей

With PT

' .PivotFields("Регион").Orientation = xlPageField

' .PivotFields("Месяц").Orientation = xlColumnField

' .PivotFields("Представитель").Orientation = xlRowField

.PivotFields("Affectation").Orientation = xlDataField

'нет заголовков полей

.DisplayFieldCaptions = False

End With

End Sub

Sub CreatePivotTable()

Dim PTCache As PivotCache

Dim PT As PivotTable

' Создание кэша

Set PTCache = ActiveWorkbook.PivotCaches.Create( _

SourceType:=xlDatabase, _

SourceData:=Range("A1").CurrentRegion)

' Добавление нового листа в сводную таблицу

Worksheets.Add

' Создание сводной таблицы

Set PT = ActiveSheet.PivotTables.Add( _

PivotCache:=PTCache, _

TableDestination:=Range("A3"))

'' Добавление полей

' With PT

' .PivotFields("Регион").Orientation = xlPageField

' .PivotFields("Месяц").Orientation = xlColumnField

' .PivotFields("Представитель").Orientation = xlRowField

' .PivotFields("Продажи").Orientation = xlDataField

' 'нет заголовков полей

' .DisplayFieldCaptions = False

' End With

End Sub