Recursos insuficientes (borrar celdas)

[Enid86]

Buenas!!!

A ver si me podéis ayudar, por favor!

Tenía el siguiente código que funcionaba con pocos datos:

busca.Offset(2, -13).Select

With ActiveCell
        .Resize(Rows.Count - .Row, Columns.Count - .Column).Clear

End With

Pero al ponerlo en práctica real, me aparece error por recursos insuficientes en Excel ? 

¿Esto hay forma de arreglarlo o no es posible?

Muchas gracias.

[Antoni]

Estás consumiendo demasiados recursos, ya sea por otras aplicaciones, archivos abiertos,.....

Prueba así a ver que tal va:

busca.Offset(2, -13).Select
With ActiveSheet.UsedRange
   filas = .Rows.Count - ActiveCell.Row + 1
   columnas = .Columns.Count - ActiveCell.Column + 1
   ActiveCell.Resize(filas, columnas).Clear
End With