Delete the Rows If it is Blank cell below Table header "Status"

**eltonlaw** · 05-19-2012, 02:02 AM

Dear Expert,

Want to delete the Rows If it is Blank cell (in column D) below Table header "Status"

"Status" is Table Header... can be either in D3 or D4 or even D5.

It is not fixed.

Hope can help. Thanks

Elton

**eltonlaw** · 05-19-2012, 02:11 AM

Sorry Expert,

I made mistake ....

Shoud be - Delete the Rows If it is non-Blank cell below Table header "Status"

Sorry .... so sorry
Hope expert can elp. Thanks indeed

**jraj1106** · 05-19-2012, 05:44 AM

Hi

Try this code:

Sub delrows()
    Dim rcnt As Long
    
    rcnt = Range("D" & Rows.Count).End(xlUp).Row
    
    For i = 3 To rcnt
        If Range("D" & i).Value <> "" Then
            Rows(i).Delete
            i = i - 1
        End If
    Next
End Sub