Delete Rows

[ayazgreat]

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.

[Admin]

Hi

try

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

[ayazgreat]

Thank you very much Sir, it works fine.