Simple first unused row problem

I want a macro to look at Column A starting at the first row and when it finds the first cell that is empty delete the row where is found and also delete all rows in the entire workbook below it.

It has to look at the first row and then the second row etc until it finds the blank. Doing it backwards (going up from the bottom) will not work with my data.