Ich find den Fehler nicht :-(

Sub test()
k = 2
For i = 2 To 100 Step 1
If tbl90.Cells(i, 9)  "x" Then
tb91.Cells(k, 1).Value = tbl90.Cells(i, 1).Value
k = k + 1
End If
Next i
End Sub