I am trying to transform my data in columns to a single column.

Example data:

```

A B C 
1 2 3 
D E F

```

I want it in a single column:

```

A
1
D
B
2
E
C
3
F

```

I am using this code I found on the web.

```vb
Sub ConvertRangeToColumn()

Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
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)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

```

This turns my data to:

```

A 
B
C 
1 
2
3 
D 
E 
F

```

As it seeks the data horizontally.