Visual Basic 6 - celle colorate

mi servirebbe una formula che dice es:
se "G1" o "H1" o entrambi del foglio1 è di colore rosso allora copia C1-D1-E1-F1del foglio1 in foglio 2
metto qui un esmpio