Zeilenfarbe abwechselnd ändern

ich möchte gerne eine Funktion in VBA haben, die Zeilen mit einer bestimmten Länge (A bis G)abwechselnd in zwei Farben färbt. Bedingung für den Wechsel der Farbe ist der Wert in Spalte A. Verändert sich dieser beim nach unten Durchlaufen soll sich die Farbe der Zeile ändern, bzw. soll die Farbe beibehalten werden so lange sich der Wert nicht ändert. Das soll er so lange machen bis die erste leere Zelle in Spalte A kommt.
Beispiel hier klicken