Selecting n rows in the adjacent column

[Sathed]

I have some data, in 405 columns. I'm trying to combine them in to one column. My only hangup is moving from one selection in a column to the next selection in the next column.

I know I can iterate to the next column with a loop:

For i = 1 To 405
  Columns(i).Select

But that grabs the entire column. I just want to grab rows 1-10. How can I go about doing that?

Example:

1  6
2  7
3  8
4  9
5  0

Would turn out like:

1
2
3
4
5
6
7
8
9
0

Make sense?

[rylo]

Hi

here goes

Sub aaa()
  For i = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
    Cells(1, i).Resize(10, 1).Cut Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
  Next i
End Sub

rylo