VBA Macro to Transpose Columns to Rows AND Concatenate Afterwards

Hello,

First post: urgent question.

Data looks like this:

Joe, Bob
Madison, Billy
Drew, Larry

Ying, Min
Yong, Mong

Ting, Tong
John, Jacob


Not only do I need to develop a macro to transpose each of these sets (separated by spaces) into columns, but also I need to then combine them into one cell separated by a space.

The key here: to develop a code to concatenate everything into the first cell, but just run it once so that it will know to group together only the ones separated by spaces all the way down to yield the following

Joe, Bob , Madison, Billy , Drew, Larry

Ying, Min , Yong, Mong

Ting, Tong , John, Jacob

Thank you for your post! I am new to the site- is there a way to acknowledge your help to give you credit, etc.?

I found that the following worked better for my purposes:

Sub Beautify()
Dim R As Range, Idx As Long

    Set R = Selection
    Idx = 1

    Do While Idx < R.Rows.Count                           ' count dynamically changes as we delete rows
        If R(Idx + 1, 1) = "" Then                        ' found a break line looking 1 down
            R(Idx, 3) = R(Idx, 3) & " , " & R(Idx + 1, 3)   ' append to current
            R(Idx + 1, 1).EntireRow.Delete                ' delete following but do not count up Idx
        Else
            Idx = Idx + 1                                 ' this one is clean, advance
        End If
    Loop
End Sub