Visual Basic - Problema VB - Excel

Hola, amigos.
Tengo un problema que no puedo solucionar.

Dim xlApp As excel.Application
Dim xlLibro As excel.Workbook
Dim xlHoja As excel.Worksheet
Dim vM As Variant
Dim UFila As Long
UFila = 1
Dim varMatriz As Variant
Dim lngUltimaFila As Long
Set xlApp = New excel.Application
Set xlLibro = xlApp.Workbooks.Open(B, True, True, , "")
Set xlLibro = xlApp.Workbooks.Open(B, True, True, , "")
Set xlHoja = xlApp.Worksheets(A)
lngUltimaFila = Columns("A:T").Range("A65536:T65536").End(xlUp).Row + 2
varMatriz = xlHoja.Range(Cells(10, 1), Cells(lngUltimaFila, 24))

Estoy abriendo un documento de excel que está guardado en la variable "B", la hoja está guardada en la variable "A", ocurré que los datos son cargados en una Grilla corréctamente, pero esto sólo ocurré una vez, la segunda vez arroja el error 1004, he leido la documentación de microsoft para este error, pero no me queda claro lo que proponen ahí.

La aplicación esta tomando un máximo rango que no es fijo por eso busco el fín del archivo de esa forma, en résumen, es una hoja con partidas de compras, por eso es variable en su cantidad de filas, el margen de columnas es fijo.
Podría hacerlo recorriendo todo el documento línea a línea pero esto incrementa demasiado el tiempo de carga.

Esperando respuesta.
Saludos y muchas gracias.

y porqué no cargas la hoja en un recordset y de éste a la grilla?

así ni siquiera tendrías que abrir el libro, ni preocuparte por el número de filas ni de columnas.

y es como mil veces más rápido que ir leyendo cada dato de la hoja.