Excel - Juntar columnas en una sola

Hola, tengo un problema al juntar una serie de columnas en un única columna. Los datos que tengo son estos por ejemplo:
1 2 3
4 5 6
7 8 9
y quiero que me queden en una única columna tal que así,
1
2
3
4
5
6
7
8
9
Si me podéis echar un cable se agradece ;)
Un saludo

Algo asi:
Sub CombCol()
Dim s As Single
Dim k As Integer
Dim R As Integer
k = 2
R = 0
[A1].Select
Columns("A:A").Insert Shift:=xlToRight
Range("A1") = "FINAL"
Do Until R > 65536 Or Cells(65536, k).End(xlUp).Value = ""
R = R + Range(Cells(1, k), Cells(65536, k).End(xlUp)).Rows.Count
Range(Cells(1, k), Cells(65536, k).End(xlUp)).Cut Range("A65536").End(xlUp).Offset(1, 0)
k = k + 1
Loop
End Sub

Gracias, lo probaré

Amí si me sirvio, andubo de diez, Gracias......!

Gracias amigo me has salvado con tu programa