Az A oszlop 2 szóból álló értékeit a B oszlopba írja sortöréssel. A felső sor karakterei pirosak, az alsók kék színűek lesznek. Címsort feltételezve a 2. sortól veszi az adatokat.

Sub szines()
    Dim sor As Integer, usor As Integer
    Dim szoveg1 As String, szoveg2 As String
    
    usor = Cells(Rows.Count, "A").End(xlUp).Row
    For sor = 2 To usor
        szoveg1 = Left(Cells(sor, 1), InStr(Cells(sor, 1), " ") - 1)
        szoveg2 = Mid(Cells(sor, 1), InStr(Cells(sor, 1), " ") + 1, 256)
        Cells(sor, 2) = szoveg1 & Chr(10) & szoveg2
        Cells(sor, 2).Characters(Start:=1, Length:=Len(szoveg1)).Font.ColorIndex = 3
        Cells(sor, 2).Characters(Start:=Len(szoveg1) + 2, Length:=Len(szoveg2)).Font.ColorIndex = 5
    Next
End Sub