I have a worksheet that contain some numbers in rows, I would like to convert to columns with "," in the end of the number, for example:

```
5001 5002 5003

```

After convert

```
5001,
5002,
5003,

```

I have this code already

```

Dim range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
Set range1 = Application.Selection
Set range1 = Application.InputBox("Source Ranges:", xTitleId, range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
range1.Select
    Selection.NumberFormat = "@"
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In range1.Columns
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=False
    rowIndex = rowIndex + Rng.Rows.Count
Next

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

```

[![Image example](https://i.stack.imgur.com/zGnKW.png)](https://i.stack.imgur.com/zGnKW.png)