VBA search table, delete row

[Enzo_Matrix]

morning,
I have a table and I want to delete entire rows, if there is any value in them. I've come this far, by modifying previous code I have, but need some help changing the "void" to search for any number in that field.

Sub DeleteShip()
    
    Dim c As Range
    Dim SrchRng


    Set SrchRng = ActiveSheet.Range("I1", ActiveSheet.Range("I65536").End(xlUp))
    Do
        Set c = SrchRng.Find("Void", LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
End Sub

 

[Akuini]

Try this:

Sub DeleteShip()
On Error Resume Next
Range("I1", Cells(Rows.count, "I").End(xlUp)).SpecialCells(xlConstants, xlNumbers).EntireRow.Delete
On Error GoTo 0
End Sub

 

[Enzo_Matrix]

Perfect. Thank you so much.

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.