Deleting Blank Rows

what i need is a macro that will allow me to delete all blank rows in my worksheet i can't do a sort on the sheet because it will mess up the rest of the data.


thanks for any help that you can provide.

Graeme