Or without formulas:
Copy/PasteSpecial the cells you want to concatenate into Word as
"Unformatted Text"
Find/Replace. Check "use wildcards".
Find what: ^t{1,}
Replace with: ,
Or export the concatenated string (with multiple commas) into Word.
Find what: ,{1,}
Replace with: ,
Copy/Paste back into Excel