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?