Это работает нормально:

Dim pc As PivotCache
With tgtBook.Sheets("Data")
    Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1:B5"), Version:=Excel.xlPivotTableVersion14) ' Range("myMthdata"))
End With

Бросает ошибку времени выполнения '13' Несоответствие типов:

Dim pc As PivotCache
With tgtBook.Sheets("Data")
    Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1:B500000"), Version:=Excel.xlPivotTableVersion14) ' Range("myMthdata"))
End With

Единственная разница - это количество строк в SourceData. Это ошибка или есть логическая причина этого кажущегося несоответствия?

РЕДАКТИРОВАТЬ

При дальнейшем изучении кажется, что B65536 будет работать, тогда как что-то большее будет ошибаться. Это максимальное количество строк в старой версии Excel неexcel-2010, По ощущениям как ошибка.

Кто-нибудь знает обходной путь?