delete row macro

[JasonLeVan]

I need a macro to look at column a if it is blank then delete that row

 

[MrKowz]

Sub DeleteBlankRows()
Dim LR As Long, _
    i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 1 Step -1
    If Range("A" & i).Value = "" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[VoG]

Sub DelA()
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub