Создание сводной таблицы из исходного листа, в котором постоянно меняются данные, но сейчас выдаёт ошибку, раньше макрос на сводную таблицу работал нормально, пока что-то не поменяли в исходном файле, после этого начала выходить ошибка - Run-time error '1004' на строке 21, помогите пожалуйста понять, что мешает работе макроса
Код
Sub PIVOTOrder()Dim rngData As Range
Dim rngDataP As Range
Dim shtSvodka As Worksheet
Dim Nrow As Long, Ncol As Long ' число строк и столбцов
Dim rngFirst As Range, rngLast As Range 'первая и последняя ячейка
Dim rngS As Rangе[/P]
Call ClearPIVOTOrder
'1 - Диапазон с данныим
Set rngData = ThisWorkbook.Worksheets("Order").UsedRange
Set shtSvodka = ThisWorkbook.Worksheets("OrderPivot")
' 2 - кэш сводной таблицы
Dim PTCache As PivotCache
Set PTCache = ThisWorkbook.PivotCaches.Create(xlDatabase, rngData)
' 3 - добавить сводную таблицу
Dim PT As PivotTable
Set PT = PTCache.CreatePivotTable(shtSvodka.Range("A1")) ' здесь возникает ошибка
' 4 - поля сводной таблицы
PT.AddFields RowFields:="Customer", ColumnFields:="DueDatePeriod", PageFields:="Level"
With PT.PivotFields("Unic #")
.Orientation = xlRowField
.Position = 2
End With
[P]' 5 - поля значений
With PT.PivotFields("QtyOpen")
.Orientation = xlDataField
.Function = xlSum
End With