Zeilen löschen?

ich hab folgendes Problem.

Aus einer Tabbelle sollen alle Zeilen gelöscht werden die in der Spalte A nicht die Werte K1a und K1b haben. Folgenden VBA Code hab ich zu einem ähnlichen Problem hier im Archiv gefunden und für meine Zwecke umgeschrieben.

z = Range("A1").CurrentRegion.Rows.Count
For i = z To 2 Step -1
If Cells(i, 1) <> "K1b" Or Cells(i, 1) <> "K1a" Then
Rows(i).EntireRow.Delete
End If
Next i

Das Problem hier bei ist nun, das alle Zeilen gelöscht werden, auch die, die Bedingung erfüllen. Lass ich nur nach einer Bedingungen suchen ist alles in Ordnung, sobald ich beide zusammen ausführen will geht's nicht.

Kann mir einer einen Tipp geben wo mein Fehler ist?

Vilen Dank!
Franz