This code combines all the data into one string. How can I parse it with a
comma in between each column entry.

Also would there be a way to add comments to each column right before the
comma?? Thanks

Set x = CreateObject("Word.Application")
x.Documents.Add
x.Visible = True

For Each cl In Selection

n = n & CStr(cl.Value)

Next

x.Selection.TypeText CStr(n)