VBA delete row with cell contains specific values

This is driving me nuts as I have made a similar script few years ago. However, it's not to be found.

I want to add more values like 1009230, 1009231, etc. . I know it can be done with array but I am missing something.

Current script works with single value.

Best Thoms



Capture.PNG

Formula:

Sub BD_DELETE()



    Dim rng As Range

    Set rng = ActiveSheet.UsedRange

    

    For i = rng.Cells.Count To 1 Step -1

        If rng.Item(i).Value = "1009229" Then

            rng.Item(i).EntireRow.Delete

        End If

    Next i

End Sub