How to arrange multiple cell value into single column

[geniusideas]

For Example:
Before
A B C D
1 Button1 Button2
2 Button3 Button4
3 Button5 Button6
Button7

After
A
1 Button1
2 Button2
3 Button3
4 Button4
5 Button5
6 Button6
7 Button7

Pls help in VBA code how to do?

 

[Sebation.G]

try:
Sub test()
Dim mycell As Range
Dim k As ingeter
Application.ScreenUpdating = False
On Error GoTo handle:
For Each mycell In ActiveSheet.UsedRange
If Not IsEmpty(mycell) Then
k = k + 1
mycell.Copy Cells(k, 5)
End If
Next mycell
handle:
Application.ScreenUpdating = True
End Sub

 

[Sebation.G]

sorry ,write a wrong word
Dim k As ingeter
shd change
Dim k as integer