To simplify text cell

Try:

Sub SplitString()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    Dim vData As Variant
    For Each rng In Range("C2:C" & LastRow)
        vData = Split(rng, Chr(10))
        Cells(Rows.Count, "G").End(xlUp).Offset(1, 0) = rng.Offset(0, -1)
        Cells(Rows.Count, "H").End(xlUp).Offset(1, 0) = vData(0) & " - " & vData(1)
    Next rng
    Application.ScreenUpdating = True
End Sub