compile error expected line number statement end statement

I am getting this error and where th If not starts its is in red showing that is where the issue is

HTML Code: 

Sub RemoveRows()
Dim LR As Long, i As Long
Dim ws As Worksheet
Set ws = Worksheets("100 Airports")
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 10 Step -1

If Not(Range("B" & i).Value = Ws.Range("E4") or (Range("B" & i).Value = Ws.Range("E5") or (Range("B" & i).Value = Ws.Range("E6") or (Range("B" & i).Value = Ws.Range("E7") or (Range("B" & i).Value = Ws.Range("E8") or (Range("B" & i).Value = Ws.Range("E9") or (Range("B" & i).Value = Ws.Range("E10") or (Range("B" & i).Value = Ws.Range("E11") or (Range("B" & i).Value = Ws.Range("E12") or (Range("B" & i).Value = Ws.Range("E13") or (Range("B" & i).Value = Ws.Range("E14") or (Range("B" & i).Value = Ws.Range("E15") or (Range("B" & i).Value = Ws.Range("E16") or (Range("B" & i).Value = Ws.Range("E17") or (Range("B" & i).Value = Ws.Range("E18") or (Range("B" & i).Value = Ws.Range("E19") or (Range("B" & i).Value = Ws.Range("E20") or (Range("B" & i).Value = Ws.Range("E21") or (Range("B" & i).Value = Ws.Range("E22") or (Range("B" & i).Value = Ws.Range("E23") or (Range("B" & i).Value = Ws.Range("E24") or (Range("B" & i).Value = Ws.Range("E25") or (Range("B" & i).Value = Ws.Range("E26") or (Range("B" & i).Value = Ws.Range
("E27") or (Range("B" & i).Value = Ws.Range("E28") or (Range("B" & i).Value = Ws.Range("E29") or (Range("B" & i).Value = Ws.Range("E30") or (Range("B" & i).Value = Ws.Range("E31") or (Range("B" & i).Value = Ws.Range("E32") or (Range("B" & i).Value = Ws.Range("E33") or (Range("B" & i).Value = Ws.Range("E34") or (Range("B" & i).Value = Ws.Range("E35") or (Range("B" & i).Value = Ws.Range("E36") or (Range("B" & i).Value = Ws.Range("E37") or (Range("B" & i).Value = Ws.Range("E38") or (Range("B" & i).Value = Ws.Range("E39") or (Range("B" & i).Value = Ws.Range("E40") or (Range("B" & i).Value = Ws.Range("E41") or (Range("B" & i).Value = Ws.Range("E42") or (Range("B" & i).Value = Ws.Range("E43") or (Range("B" & i).Value = Ws.Range("E44") or (Range("B" & i).Value = Ws.Range("E45") or (Range("B" & i).Value = Ws.Range("E46") or (Range("B" & i).Value = Ws.Range("E47") or (Range("B" & i).Value = Ws.Range("E48") or (Range("B" & i).Value = Ws.Range("E49") or (Range("B" & i).Value = Ws.Range("E50") or (Range("B" & i).Value =
Ws.Range("E51") or (Range("B" & i).Value = Ws.Range("E52") or (Range("B" & i).Value = Ws.Range("E53") or (Range("B" & i).Value = Ws.Range("E54") or (Range("B" & i).Value = Ws.Range("E55") or (Range("B" & i).Value = Ws.Range("E56") or (Range("B" & i).Value = Ws.Range("E57") or (Range("B" & i).Value = Ws.Range("E58") or (Range("B" & i).Value = Ws.Range("E59") or (Range("B" & i).Value = Ws.Range("E60") or (Range("B" & i).Value = Ws.Range("E61") or (Range("B" & i).Value = Ws.Range("E62") or (Range("B" & i).Value = Ws.Range("E63") or (Range("B" & i).Value = Ws.Range("E64") or (Range("B" & i).Value = Ws.Range("E65") or (Range("B" & i).Value = Ws.Range("E66") or (Range("B" & i).Value = Ws.Range("E67") or (Range("B" & i).Value = Ws.Range("E68") or (Range("B" & i).Value = Ws.Range("E69") or (Range("B" & i).Value = Ws.Range("E70") or (Range("B" & i).Value = Ws.Range("E71") or (Range("B" & i).Value = Ws.Range("E72") or (Range("B" & i).Value = Ws.Range("E73") or (Range("B" & i).Value = Ws.Range("E74") or (Range("B" & i)
.Value = Ws.Range("E75") or (Range("B" & i).Value = Ws.Range("E76") or (Range("B" & i).Value = Ws.Range("E77") or (Range("B" & i).Value = Ws.Range("E78") or (Range("B" & i).Value = Ws.Range("E79") or (Range("B" & i).Value = Ws.Range("E80") or (Range("B" & i).Value = Ws.Range("E81") or (Range("B" & i).Value = Ws.Range("E82") or (Range("B" & i).Value = Ws.Range("E83") or (Range("B" & i).Value = Ws.Range("E84") or (Range("B" & i).Value = Ws.Range("E85") or (Range("B" & i).Value = Ws.Range("E86") or (Range("B" & i).Value = Ws.Range("E87") or (Range("B" & i).Value = Ws.Range("E88") or (Range("B" & i).Value = Ws.Range("E89") or (Range("B" & i).Value = Ws.Range("E90") or (Range("B" & i).Value = Ws.Range("E91") or (Range("B" & i).Value = Ws.Range("E92") or (Range("B" & i).Value = Ws.Range("E93") or (Range("B" & i).Value = Ws.Range("E94") or (Range("B" & i).Value = Ws.Range("E95") or (Range("B" & i).Value = Ws.Range("E96") or (Range("B" & i).Value = Ws.Range("E97") or (Range("B" & i).Value = Ws.Range("E98") or (Range
("B" & i).Value = Ws.Range("E99") or (Range("B" & i).Value = Ws.Range("E100") or (Range("B" & i).Value = Ws.Range("E101") or (Range("B" & i).Value = Ws.Range("E102") or (Range("B" & i).Value = Ws.Range("E103")) Then Rows(i).Delete
Next i
End Sub

The current range I am working is is about 85,000 rows long. I need to delete any rows that down contain a certain value in column "B". The list of values to look for in B is 100 values and they are in a worksheet called "100 Airports" in range E4:E103.

I am trying to find the best way to do this because I have other sheets that are huge that contain formulas that search that huge range and it is going so slow. If I can cut the 85,000 rows with the data the formulas is searching for it will hopeffuly speed things up.

What are your thoughs? Thanks for the help