if Funktion mit or wird nicht befolgt

Sub MitarbeiterListeAnpassen()
Dim i As Integer
For i = 3 To 5400
If Cells(i, 5).Value = "67407" Or Cells(i, 5).Value = "67410" Then
If Cells(i, 7).Value = "DD VA" Or Cells(i, 6).Value = "DD OP" Or Cells(i, 6).Value = "DD FK" Or Cells(i, 6).Value = "DD SL" Or Cells(i, 6).Value = "DD SO" Or Cells(i, 6).Value = "DD SP" Then Call ZeileLöschen(i)
End If
Next i
End Sub