splitting text into rows.

FWIW:

Sub rose9812in()
Dim i As Long, x As Long
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    .Calculation = xlManual
End With
Range("A2:A" & Range("A" & Rows.Count).End(3).row).TextToColumns Range("A2"), xlDelimited, xlDoubleQuote, False, True, False, True, False, True
For i = Range("A" & Rows.Count).End(3).row To 2 Step -1
x = Cells(i, "A").End(xlToRight).Column
Cells(i + 1, "A").Resize(x).Insert xlDown
Range(Cells(i, "B"), Cells(i, x)).Copy
Cells(i + 1, "A").PasteSpecial Transpose:=True
Range(Cells(i, "B"), Cells(i, x)).Clear
Next i
Range("A2:A" & Range("A" & Rows.Count).End(3).row).SpecialCells(4).Delete
With Application
    .DisplayAlerts = True
    .Calculation = xlAutomatic
    .ScreenUpdating = True
End With
End Sub