Sammenligne celler og hvis ens værdi så

Hejsa,
Jeg kæmper med at få nedenstående kode til at virke, tror kun den kører en gang.
1. Den skal sammenligne værdierne i cellerne kolonne E og F (for hver række). Og hvis de er ens, skal værdien i F ganges med 4.5. Det udfører den ikke.
2. Den melder også fejl, hvis jeg fjerner apostroffen ved End If.
Compile error: End If without block If

Nogen der kan se hvad der er galt?

Dim LR1 As Long
Application.ScreenUpdating = False
   
Set ws1 = Sheets("Ark1")
LR1 = ws1.Range("F" & Rows.Count).End(xlUp).Row

For i = 1 To LR1
If ws1.Range("F" & i).Value = ws1.Range("E" & i) Then F = E * 4.5
 
Next i   
'End If 
MsgBox "Færdig"
   
End Sub