Solución Macro Error 13 en tiempo de Ejecución

Buenas, solicito ayuda con la solución del error 13 en tiempo de ejecución. Esta se produce en una macro con que deseo hacer para crear una tabla dinámica. El código que tengo es el siguiente:

Dim DatosTablaDinamica As PivotCache
Dim TablaResumenUnidades As PivotTable
Application.ScreenUpdating = False
HojaBaseDT.Select
Range("A1").CurrentRegion.Select
Set DatosTablaDinamica = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Selection)
Set TablaResumenUnidades = HojaTD.PivotTables.Add(PivotCache:=DatosBase, TableDestination:=HojaTD.Range("A8"))
With TablaResumenUnidades
.PivotFields ("Mes")
.Orientation = xlColumnField
.Position = 1
.PivotFields ("Quincena")
.Orientation = xlColumnField
.Position = 2
.PivotFields ("nmro_idntfccn_assr")
.Orientation = xlRowField
.Position = 1
.PivotFields ("nmbrs")
.Orientation = xlRowField
.Position = 2
End With
HojaTD.Select

El error se presenta en la letra Negrita, la ver dad no se que sucede, por el momento solo puedo decir que la tabla se encuentra en una hoja de excel, y se compone de 32 columnas y 89523 filas, estas ultimas siguen creciendo. Doy este dato porque no se si sea por el tamaño aunque no tienen nada que ver porque cuando la realice con el programador automático si realizó la macro, pero ahora que quiero seleccionar el rango me genera problemas.