Developing.ru

Дорогие друзья, помогите разобраться, в данном коде. По сути нужно, что бы , при запуске данного макроса. Он выделял все заполненную область, и строил по ней сводную таблицу, на новом листе. Ругается на этот код, не понимаю в чем дело...

Код: Выделить всё

Sub Macros()

    Sheets("Данные_для_Сводной_таблицы").Select
    Cells.Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Данные_для_Сводной_таблицы'!C1:C21").CreatePivotTable TableDestination:="", _
        TableName:="СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("СводнаяТаблица1").AddFields RowFields:=Array( _
        "Material", "Данные"), ColumnFields:="Grp5", PageFields:="Req.dlv.dt"
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("ordered_correct")
        .Orientation = xlDataField
        .Caption = "ordered"
        .Position = 1
        .Function = xlSum
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("delivered_correct" _
        )
        .Orientation = xlDataField
        .Caption = "Received"
        .Function = xlSum
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    Range("B4").Select
    With ActiveSheet.PivotTables("СводнаяТаблица1").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Grp5")
        .PivotItems("(Пусто)").Visible = False
    End With
    Range("G11").Select
End Sub

Developing.ru

Cводная таблица макросом в Excel

Cводная таблица макросом в Excel