Соединить несколько столбцов в один! - VBA

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

Есть задачка, ответа на нее нормального и рабочего не могу найти 3-ий день уже! Одни макросы с ошибками другие не так как надо делают и т.д. В прикрепленном файле необходимо все данные из столбцов соединить в один столбец друг за другом! Если Вам несложно, те которые разбираются в этом, уважаемые объяснить "нубу" как это сделать! Если вы решите эту задачку то пожалуйста объясните этот способ!

Решение задачи: «Соединить несколько столбцов в один!»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim iSource As Range, iCount&, iArr, tmp
 
    Set iSource = ActiveSheet.UsedRange
    ReDim iArr(1 To Application.CountA(iSource))
 
    For Each tmp In iSource.Value
        If Not IsEmpty(tmp) Then
           iCount = iCount + 1
           iArr(iCount) = tmp
        End If
    Next
 
    iSource.Clear
    iSource(1).Resize(iCount) = Application.Transpose(iArr)
End Sub
                        