VBA Farbenaus Zelle in Zellenzeilen übernehmen

[MSCom]

Wie übernimmt man mit Hilfe eines Makros eine Zellenfarbe einer Zelle D auf die davor liegenden Zellen A -C einer Zeile ohne darin stehende Werte zu überschreiben?
Zelle D suchen und dann farblich nach A ausfüllen - na und das so lange bis die jeweilige Farbe abgeschlossen ist.

Ich habe es mit vielen Makroaufzeichnungen und versuchten Anpassungen versucht - aber es will nicht klappen.

Danke
Puma5000

Beispieltabelle:

A	B	C	D	E	F	G
rot	rot	rot	gelb	andere Inhalte	andere Inhalte	andere Inhalte
keineFüllung	keineFüllung	keineFüllung	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
rot	rot	rot	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
keineFüllung	keineFüllung	keineFüllung	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
rot	rot	rot	blau	andere Inhalte	andere Inhalte	andere Inhalte
keineFüllung	keineFüllung	keineFüllung	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
rot	rot	rot	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
rot	rot	rot	blau	andere Inhalte	andere Inhalte	andere Inhalte
keineFüllung	keineFüllung	keineFüllung	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
keineFüllung	keineFüllung	keineFüllung	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
rot	rot	rot	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
rot	rot	rot	gelb	andere Inhalte	andere Inhalte	andere Inhalte
keineFüllung	keineFüllung	keineFüllung	keineFüllung	andere Inhalte	andere Inhalte	andere Inhalte
Gibt es eine Makro welcher in der Lage ist, die Farbe der Spalte D auf die Zellen A - C
der Zeile zu übertragen ohne die Werte zu beeinflussen