I want to delete rows that include some specific serial numbers

I'm very new to VBA and i would like to know if its possible to delete rows that has a specific serial number in column A. I am going to use the macro in different workbooks (not at the same time). I have tried the one below but it finds a serial number that starts with 140 (1407) and then nothing happens.

Sub deleterows()

    Columns("A:A").Select
        Do Until notfound = 1
            On Error GoTo done
                
        Selection.Find(What:="140").Activate

ActiveCell.EntireRow.Delete

                Selection.Find(What:="1708").Activate
            
ActiveCell.EntireRow.Delete

                Selection.Find(What:="2071").Activate
                
ActiveCell.EntireRow.Delete

                Selection.Find(What:="759").Activate

ActiveCell.EntireRow.Delete
                
                Selection.Find(What:="1313").Activate
                
ActiveCell.EntireRow.Delete

Loop

done: notfound = 1

End Sub

What i want is to delete the rows if it shows a value of 140, 1708, 2071, 759 and 1313.

Thanks in advance