Deleting rows with a specific value in the first column

[nevrborn]

Hey,

I need to delete rows that have 0 (or another specific value) as value in the first column (see selection in example).

Tried several vba codes, but can't get it to work. Can anyone help?

[Kaak]

This should work

Option Explicit

Sub remove_Row()

    Dim i As Long
    
    For i = Range("A1").End(xlDown).Row To 1 Step -1
    
        If Range("A" & i).Value = 0 Then Rows(i).Delete
    
    Next i

End Sub

[nevrborn]

thanks, that works great!