VBA Code to delete blank Rows

[howard]

I need VBA code that will delete all blank rows in column A

Your assistance will be most appreciated

 

[gsbelbin]

Do you really need a macro? This can be done with just a few mouse clicks (Edit, Go To, Special, Blanks, Edit, Delete, Entire Row)

 

[prabby25101981]

Does this help?

Sub deleteblankrows()
Dim LRow As Long
LRow = Range("A65536").End(xlUp).Row
For i = LRow To 2 Step -1
    If Range("A" & i).Value = "" Then
        Range("A" & i).EntireRow.Delete
    End If
Next i
End Sub

 

[gsbelbin]

Do you really need a macro? This can be done with just a few mouse clicks (Edit, Go To, Special, Blanks, Edit, Delete, Entire Row)

If you really want a macro the code below does what I've described previously.

    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete

 

[howard]

Hi Guys

thanks for the help