Генерация сводной таблицы с использованием макросов (ошибка времени выполнения 1004)

Question

Я пытаюсь создать сводную таблицу с помощью макроса VBA. Я новичок в VBA, и у меня нет большого опыта. Я надеялся, что кто-то может помочь исправить следующую ошибку: «Ошибка времени выполнения« 1004 »: ошибка приложения или объекта».

Код выглядит следующим образом:

 Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "data!R14C1:R271C47", Version:=6).CreatePivotTable TableDestination:= _
        "Sheet23!R3C1", TableName:="PivotTable12", DefaultVersion:=6
    Sheets("Sheet23").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable12").PivotFields("Process")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable12").AddDataField ActiveSheet.PivotTables( _
        "PivotTable12").PivotFields("Process"), "Count of Process", xlCount
    ActiveSheet.PivotTables("PivotTable12").AddDataField ActiveSheet.PivotTables( _
        "PivotTable12").PivotFields("Walkthrough/Phase 1 Scheduled Start Date"), _
        "Count of Walkthrough/Phase 1 Scheduled Start Date", xlCount
    With ActiveSheet.PivotTables("PivotTable12").PivotFields( _
        "Count of Walkthrough/Phase 1 Scheduled Start Date")
        .Caption = "Min of Walkthrough/Phase 1 Scheduled Start Date"
        .Function = xlMin
    End With
    Columns("C:C").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("D3").Select
End Sub