Sub DeletDe()
Dim arr As Variant
Dim lngLastRow&
Dim i%
arr = Array("110", "120", "150", "188", "189", "190", "191", "192", _
"196", "197", "215", "219", "235", "449", "479", "449", "450")
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For i = lngLastRow To 1 Step -1
If Cells(i, 1) = arr(0) Or Cells(i, 1) = arr(1) Or Cells(i, 1) = arr(2) _
Or Cells(i, 1) = arr(3) Or Cells(i, 1) = arr(4) Or Cells(i, 1) = arr(5) _
Or Cells(i, 1) = arr(6) Or Cells(i, 1) = arr(7) Or Cells(i, 1) = arr(8) _
Or Cells(i, 1) = arr(9) Or Cells(i, 1) = arr(10) Or Cells(i, 1) = arr(11) _
Or Cells(i, 1) = arr(12) Or Cells(i, 1) = arr(13) Or Cells(i, 1) = arr(14) _
Or Cells(i, 1) = arr(15) Or Cells(i, 1) = arr(16) Or Cells(i, 1) = arr(18) Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub