Как удалить пробелы для моего макроса обратной конкатенации?

Question

Мой код работает, однако, он показывает пробелы. Вот что происходит, когда я помещаю значения в ячейку A1, такие как Том, Джон, Марк, Боб. Из связанного списка это будет в обратном сцеплении. Он должен выглядеть следующим образом:

Tom
John
Mark
Bob

Но сейчас он показывает с пробелами, как показано ниже:

Tom
 John
 Mark
 Bob

Как мне проехать с пробелами?

'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+l
'
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
        TrailingMinusNumbers:=True
    Selection.Copy
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub