Macro to delete blank rows

I have the following, but I need it to be more generic.

Sub Macro5()

Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="="
Rows("8:8").Select <---- I want this to be the first
blank row not row 8.
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=1
End Sub


Thanks in advance,
Barb Reinhardt