Further to deleting identical rows

[Audiojoe]

I would also like something like this but mine would be in macro form. When I push the button I would like to delete all blank rows that are between lines of data.

I'll give you an example:

On some of the spreadsheets we have here, the users input rows of info, but when they start a new day they leave a row or two as a gap to signify a new day (makes it easier for quality checkers). I'd like to have a macro that removes these blank rows

Any suggestions?

 

[Audiojoe]

The headers and title bar contain some merged cells but they're above A4, that's the reason I wanted to start it a bit lower.

It's cool though, the second offered solution works OK, it's just that I lose the headers which I guess I can live without.

Thanks anyway though guys