Trouble Deleting Empty rows in table

[Stevekag]

Can anyone help me. I have a spreadsheet that is about 5000 rows long. I need a macro that will search the selection (A9:E5000) look for empty cells and delete the row.
Not as it happens but after initiating the macro. Here is what i was using but it is not working.

My problem is similar to this post.

Sub DeleteBlankRows2()

'Deletes the entire row within the selection if _

 some of the cells WITHIN THE SELECTION contain no data.

On Error Resume Next

Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete

On Error GoTo 0

End Sub