Заготовка
Sub Сводная()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Лист1!R1C1:R12C7").CreatePivotTable TableDestination:="", TableName:= _
"СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
Range("A3").Select
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("август")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("сентябрь")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _
("СводнаяТаблица1").PivotFields("август"), "Сумма по полю август", xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
End Sub
Stepler ^{(щёлк-щёлк!!)}