I found the following formula for removing trailing commas on this site:
Sub RemoveTrailingCommas_Version1()
Dim Cell As Range
For Each Cell In Selection
Cell.Value = Replace(Replace(RTrim(Replace(Replace(Cell.Value, " ", Chr(1)), ",", " ")), " ", ","), Chr(1), " ")
Next
End Sub
I...