Перенос данных из строк в столбец - VBA

Формулировка задачи:

Господа, добрый день. Использую макрос для переноса данных из столбцов в один столбец (копирование) Option Explicit

                    Листинг программы
                
 
                        
                          
                    
Sub Test()
    Dim r As Range, iCol As Range
    Set r = [AA2]
    On Error Resume Next
    For Each iCol In [B2:Y367].Rows
        iCol.SpecialCells(xlCellTypeConstants, 23).Copy r
        If Err.Number = 0 Then
            Set r = r.End(xlDown).Offset(1, 0)
        Else
            Err.Clear
        End If
    Next iCol
    MsgBox "DONE"
End Sub

*Этот макрос нашёл на форуме - работает прекрасно* Вопрос в том, как изменить данный макрос, чтобы он копировал все строки в один столбец. Буду рад помощи, т.к. пока только въезжаю в данную тему.

Решение задачи: «Перенос данных из строк в столбец»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Test()
    Dim r As Range, iCol As Range
    Set r = [A2]
    On Error Resume Next
    For Each iCol In [B2:E14].Rows
        iCol.Copy
        r.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        If Err.Number = 0 Then
            Set r = r.End(xlDown).Offset(1, 0)
        Else
            Err.Clear
        End If
    Next iCol
Application.CutCopyMode = False
    MsgBox "DONE"
End Sub