Macro to delete blank rows

[howard]

I need a macro to delete blank rows from row9 onwards where there are blank cells on column A

Your assistance in this regard will be most appreciated

 

[taurean]

Try this:

Public Sub DelBlanks()
Dim rBlank As Range
Set rBlank = Range("A9:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
If Not rBlank Is Nothing Then rBlank.EntireRow.Delete
End Sub