Your data quality is poor - inconsistent use of commas to delimit data fields, continuing data fields over multiple rows, etc. But, you can use this as a basis to start:
Sub Macro1()
Dim rngA As Range
Dim rngC As Range
Dim v As Variant
Dim lngR As Long
Worksheets("Results").Cells.ClearContents
lngR = 1
For Each rngA In Worksheets("Rename").Range("A:A").SpecialCells(xlCellTypeConstants).Areas
v = ""
For Each rngC In rngA.Cells
v = v & " " & rngC.Value
Next rngC
v = Split(v, ",")
Worksheets("Results").Cells(lngR, 1).Resize(1, UBound(v) + 1).Value = v
lngR = lngR + 2
Next rngA
End Sub
Bookmarks