Code will net so wie ich...Bitte um Hilfe

Sub DisqualiB()
Dim A As Variant
Sheets("WKKlasseBeginner").Activate
For A = 16 To 86
If Cells(A, 45) = "RK" Or Cells(A, 45) = "A" Then
Cells(A, 45).EntireRow.Delete
End If
Next A
End Sub

Vielen Dank
Peter S.