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

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

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

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

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

Он повесил трубку 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 

Давайте будем гением компьютера.