Tekstfarve i rækker, VBA, Excel 2013

Public Sub ensretningAfTekstfarvecolon()
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To sidsteRække
        Range(("B") & ræk).Font.Color = Range("A" & ræk).Font.Color
    Next ræk
End Sub
Har brugt denne kode til at de enekelte rækker i kolonne B får samme tekstfarve, som i kolonne A.
Imidlertid vil jeg gerne, at dette også sker i øvrige kolonner eks. C,D,E,F (B,C,D,E,F).
Hvorledes kan jeg dette. ---- og hvis eks. at det var farven i kolonne B, der "bestemte", så det var kolonne A,C,D,E,F, der skulle "farves.