Delete Rows

Hi

I have data from column a to column b, I need code if any cell blank or having value 0 in column b then entire row would delete.

Thanks in advance.

Hi

try

Code:

---

Sub kTest()
   
    With Intersect(ActiveSheet.UsedRange, Range("b:b"))
        On Error Resume Next
        .Replace "0", vbNullString, 1
        .SpecialCells(4).EntireRow.Delete
    End With
   
End Sub

---

Thank you very much Sir, it works fine.