Создание сводных таблиц от Excel 2016 до 2013

Question

Я создал код, который на основе набора данных создает сводную таблицу на новом листе.Проблема в том, что иногда он пропускает создание сводной таблицы.То, что пропускаются только события в excell 2013, в Excel 2016 всегда создает сводные таблицы.

Я проверил размер, но он создает файлы большего размера на 100 000 элементов в каждом примере, в то время как один пропуск составляет 80 000

'Define Data Range
lastrow = DSheet.Cells(rows.Count, 2).End(xlUp).Offset(1, 0).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(lastrow, LastCol)


'Define Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=PRange, _
        Version:=xlPivotTableVersion15). _
CreatePivotTable(TableDestination:=PSheet.Cells(1, 1), _
TableName:=NameTable)


'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1, 1), TableName:=NameTable)

Следует создать сводную таблицу на новом листе