Sub testII()
Dim cell As Range
Dim derlig As Long
derlig = Range("E65536").End(xlUp).Row
For Each cell In Range("E2:E" & derlig)
Select Case Left(cell.Value, 5)
Case 11000 To 11999, 12000 To 12999, 13000 To 13999, _
15000 To 15999, 16000 To 16999, 17000 To 17999, 19000 To 19999, 20000 To 20999, 23000 To 23999, 26000 To 26999, _
30000 To 30999, 34000 To 34999, 38000 To 38999, 39000 To 39999, 40000 To 40999, 42000 To 42999, 43000 To 43999, _
46000 To 46999, 48000 To 48999, 63000 To 63999, 66000 To 66999, 69000 To 69999, 71000 To 71999, 74000 To 74999, _
81000 To 81999, 84000 To 84999, 87000 To 87999
End Select
Next
Select Case Left(cell.Value, 4)
Case 1000 To 1999, 3000 To 3999, 4000 To 4999, 5000 To 5999, 6000 To 6999, 7000 To 7999
cell.EntireRow.Delete
End Select
[COLOR="Red"]Next[/COLOR]
End Sub