Richtige Formel gesucht für bedingte Formatierung

Leider klappt folgender Code bei mir nicht.

Option Explicit
Sub COLORINDEX_1()
Dim z As Long, ZZ As Long
ZZ = 1
For z = 1 To 500
If Rows(z).Interior.ColorIndex = 9 Then
Rows(z).Copy Sheets("Bearbeitung").Cells(ZZ, 1)
ZZ = ZZ + 1
End If
Next
End Sub

Ich möchte gerne in der Tabelle "Kontoabstimmung" die Zeilen 11 bis 500 der Spalten A bis F nach dem Colorindex 9 durchsucht haben (Farbe kommt durch eine bedingte formatierung!) und anschließend die gefundenen Inhalte (Zahlen und Text) in die Tabelle "Bearbeitung" kopiert haben.
Vielen Dank im Voraus.

Gruß

Flugwind