Out of memory when trying to delete all unused rows

[a_driga]

Hi All,

I have read in some source that in order to keep the size of excel file to minimum it is necessary to delet all the unused rows before saving the file.
Somehow the tricks works..

However, when I am trying to incorporate the step to delete all unnecessary rows after running a module using vba, the result is that I am out of memory. When doing it manually, the computer only reminds me of the possible memory run-out but the process itself can still be done.

I am using the following macro code to delete the row:

Range(Cells(lr1 + 2, 1), Cells(lrend, colend)).Select
    'Selection.ClearContents
    Selection.Delete Shift:=xlUp

lr1 is the last filled cell in column A, lrend is basicall 1048576 and colend is XFD or 16384

Any suggestion in making the above works and not resulting in crash?

Thanks in advance..