зависает в «Невозможно получить свойство сводной таблицы класса Worksheet»

Я продолжаю получать эту ошибку

Не удалось получить свойство PivotTables класса Worksheet

из приведенного ниже кода

• Сводная таблица из макроса VBA, отображающая неверные данные
• Автозапуск модуля
• Excel 2013 - сводная таблица, обновляющаяся из любого места
• Чем больше выполняется между формулой EXCEL, кодом PIVOT TABLE и VBA?
• Главный поворотный фильтр

Я не уверен, что не так, но любая помощь будет полезна.

Он повесил трубку With ....End With part.

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,SourceData:="Report1&2!R1C1:R1048576C126", Version:=xlPivoTableVersion14).CreatePivotTable TableDestination:="EID_Graph!R1C1",TableName:="PivoTable1", DefaultVersion:=xlPivotTableVersion14 With ActiveSheet.PivotTables("PivotTable1").PivotFields("ID_1") .Orientation = xlRowField .Position = 1 End With