flyt baggrundsfarve med, når data i en celle adskilles

Jeg har 3 kolonner A, B og C  i kolonne C står data med følgende opbygning.

ZONE 9 – 12345
ZONE 9 – 67891
ZONE 9 – 12345
ZONE 9 – 67891

Følgende kode skiller zone og nummer i henholdsvis kolonne A og kolonne B. Min udfordring er, at nogle af cellerne i kolonne C er farvede, men jeg får ikke farven med, når mine data skilles i henholdsvis A og B kolonnen. Hvordan løser jeg det?

For ræk = 2 To antalRæk
        celle = Cells(ræk, 3)
        zone = Left(Cells(ræk, 3), 6)
        ordre_nr = Mid(Cells(ræk, 3), 9, 15)
        Cells(ræk, 1) = zone
        Cells(ræk, 2) = ordre_nr
    Next ræk