Delete Blank Cells in Dynamic Range

[Edgarvelez]

Hi All,
Need a code for Delete Blank Cells in a Dynamic Range.

In Column D my range is Dynamic Starting D9 and I would like to delete the blank cells.
Any help would be appreciated.

 

[alansidman]

Sub DelD()
Dim lr as long, i as long
lr = Range("A" & rows.count).end(xlup).row
For i = lr to 9 step -1
If Range("D" & i)= "" then
Range("D" & i).EntireRow.Delete
Endif
Next i
End Sub

 

[Edgarvelez]

Thank you very much, It worked really good and thanks for the prompt reply.