Holaa, tengo este código con el que genero la eliminación de celdas vacías porque extraigo archivos que contienen muchos datos

Me funciona bien cuando los datos  no son muchos, pero cuando son muchos me muestra el error del título

Alguna alternativa para solucionarlo? Este es mi código

 

Sub EliminarCeldas()
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    Range("A1").Select
End Sub

Espero  puedan ayudarme! Gracias

Hice la prueba,  A mi no me marca ningún error,

Saludos,

 

Diego

Sube tu archivo para poder ver donde esta el fallo

Hola, después de una larga investigación, llegué a la conclusión de que mi error era por combinación de celdas

Gracias aun así por la ayuda!!