Macro to delete Blank Rows

[howard]

I have written code to delte blank rows in Column D


I would like this to be amended to include empty rows in the column

Sub Del_Blanks()
On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub

Your assistance is most appreciated

 

[JoeMo]

Any empty row will necessarily have an empty cell in col D so your code would delete the row except that your code is looking at col A, not D. Try Columns(4) for D.

 

[Michael M]

Umm, I would have thought after 5000 odd posts, this would be a no brainer for you !!
I'm assuming you mean cells that may have formulas that return a blank result ???

Sub MM1()
With Columns("D")
    .AutoFilter Field:=1, Criteria1:=""
    .Resize(Rows.Count - 1).Offset(1).EntireRow.Delete
    .AutoFilter
End With
End Sub

 

[howard]

Thanks for you input Joe. Amended code, but still did not work

 

[howard]

Thanks Michael.Never thought of using autofilter to find the blank, which I would normally do


Your code works perfectly

 

[JoeMo]

Thanks for you input Joe. Amended code, but still did not work

Of course not, b/c your cells are not blank. They have a formula in them that's returning "" which you didn't tell us in your OP. As Michael noted in post #3 : "Umm, I would have thought after 5000 odd posts ..."