перенос значений из столбцов

[qorka]

стоит задача перенести значения из столбцов, в конец одного общего столбца, как это можно реализовать? чем проще тем лучше

к примеру имеем:
1 4 7
2 5 8
3 6 9

в итоговом столбце получаем
1
2
3
4
5
6
7
8
9

[Aleksandr H.]

Sub ImNoob()
    Dim x As Integer, y As Integer, i As Integer, j As Integer, r As Integer
    x = Range("A5000").End(xlUp).Row
    y = Range("CW1").End(xlToLeft).Column
    r = 0
    For i = 1 To x
        For j = 1 To y
            If Cells(j, i) <> "" Then
                r = r + 1
                Cells(r, y + 1) = Cells(j, i)
            End If
        Next j
    Next i
End Sub

[IgorGO]

Sub TransformTabl2Column()
  Dim rg As Range, c As Long
  Set rg = Selection.CurrentRegion
  For c = 2 To rg.Columns.Count
    Cells(rg.Row + (c - 1) * rg.Rows.Count, rg.Column).Resize(rg.Rows.Count, 1).Value = WorksheetFunction.Index(rg, 0, c).Value
  Next
  Intersect(rg, rg.Offset(0, 1)).ClearContents
End Sub

предполагается что на момент выполнения макроса
1 .отмечена одна из ячеек с данными
2. данные - это изолированная область (не имеющая контактов с другими данными на листе)

[qorka]

IgorGO, большое спасибо
очень удачный макрос