VBA Script to Delete empty rows

[Metrazal]

I have an Excel file that contains blank data after row 5000 or so. This causes my Excel file to be larger than it should be. Manually I can go to the 1st empty row and select all the "blank" rows and select delete all rows and this corrects the problem. However, I want to do this with a script. I have tried the following to no avail.

Please Login or Register  to view this content.

Any suggestions would be appreciated.

* Note: This is just an excerpt of the pertinent parts of the code.


Thanks,

Met

[AB33]

If the cells are really blanks:

Please Login or Register  to view this content.

PS:
There is an excel function called goto; that CRLT+G, then select blanks, you are home and dry.

[JBeaucaire]

Perhaps like so:

Please Login or Register  to view this content.

[Metrazal]

Thanks I really appreciate the help.