Недопустимый вызов процедуры при создании сводной таблицы

Question

Мне сказали попробовать разделить создание кеша и таблицы. Это помогло избавиться от некоторых ошибок. Теперь я получаю неверный вызов процедуры. Я посмотрел, могут ли другие решения решить проблему, но я не могу понять это. Я управляю офисом 365, если это имеет значение. Вот мой код.

спасибо!

Sub Create_101102_pivot_CFG_MV_CL()


Dim PSheet As Worksheet
Dim DSheet As Worksheet
Dim PCache As PivotCache
Dim PTable As PivotTable
Dim PRange As Range
Dim LastRow As Long
Dim LastCol As Long
Dim wb As Workbook
Set wb = Workbooks("TTB - Movements - CFG_CL")

Set DSheet = wb.Worksheets("101-102 F")

LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)

Set PSheet = wb.Worksheets("Pivot 101-102 Production")

Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)

Set PTable = PCache.CreatePivotTable(TableDestination:="'Pivot 101-102 Production'!R2C2", TableName:="101102F_Pivot Table")