Deletion of completely empty rows or with zero value

[vidplaylist]

Deletion of completely empty rows or rows with zero value.

For example Column D has value in D5 and D7 and Column E has value in E2 and E9. I want to keep these rows and want to delete completely empty rows or with zero value.

Thanks in advance,

 

[VoG]

Try

Sub DelDE()
Dim LR As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    With Range("D" & i)
        If .Value = "" Or .Value = 0 Or .Offset(, 1).Value = "" Or .Offset(, 1).Value = 0 Then .EntireRow.Delete
    End With
Next i
End Sub

 

[vidplaylist]

It's deleting everything in range other than Cell E2. I want to keep all rows containing cell D5,D7,E2 and E9

 

[VoG]

Try

Sub DelDE()
Dim LR As Long, i As Long
LR = Columns("D:E").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
For i = LR To 1 Step -1
    With Range("D" & i)
        If (.Value = "" Or .Value = 0) And (.Offset(, 1).Value = "" Or .Offset(, 1).Value = 0) Then .EntireRow.Delete
    End With
Next i
End Sub

 

[VoG]

Thanks for your PM and glad that it worked.

For learning VBA see Hiker's List http://www.mrexcel.com/forum/showpost.php?p=2676997&postcount=5