Delete rows based on multiple criteria

Hi everyone,

I'm trying to go through 685 rows of data and deleting any that don't have specific numbers in column A. I've never used macros before but through lots of Googling and experimenting I've come up with this macro:

Sub Delete_Rows2()
Dim cell As Range
Dim J As Integer
J = 685

For i = 2 To 685


Range(Cells(2, 1), Cells(J, 1)).Select
For Each cell In Selection
If cell <> "030247" _
And cell <> "030248:030258" _
And cell <> "030346" _
And cell <> "030347" _
And cell <> "030348" _
And cell <> "030353" _
And cell <> "030354" _
And cell <> "030357" _
And cell <> "030358" _
And cell <> "030359" _
And cell <> "030360" _
And cell <> "030627" _
And cell <> "030632" _
And cell <> "030644" _
And cell <> "030856" Then
cell.EntireRow.Select
Selection.Delete

J = J - 1
End If
Next cell

Next i

End Sub

This does exactly what I need, however I need about 100 "And" statements and Excel won't let me add many more. Is there other syntax that I could use to allow more options or do I have to break this into multiple macros/sets of if/and statements?

Thanks!

I'm not familiar with either code, but it would make it a lot easier if I could just go to another sheet and say if it doesn't have any of these numbers in the first column, then delete the row. I attached a workbook with before, the list of numbers i want to keep, and after.

The numbers that I'd be sorting out can change regularly so it would be awesome if I could just compare it to a list in excel and not have to edit the macro every time.

What do you think, any chance of this happening?

forgot to attach

Thank you! Now, what would I change to have the results print on the "After" sheet starting in the A column instead of the K column? I've tried even changing all of the k's to b's to see if I could move it to column b and then I get an error that this line:

For i = 1 To UBound(a, 1)

is out of range. Why would it give me an error if all I did was change the k's to b's?