Hi

As I don't know where these columns are, I wrote a general procedu


Sub longcolumn()

Dim rBegincell As Range

Set rBegincell = Selection.Cells(1)

Range(rBegincell, rBegincell.End(xlDown)).Cut Range("A" &
Rows.Count).End(xlUp).Offset(1)

End Sub


Select the first cell of a small column, and execute the macro (you can
assign a shortcut key to it if you want).

The code will move the cells below the last cell used in column A.

--
Wigi
http://www.wimgielis.be = Excel/VBA, soccer and music


"א1" wrote:

Hi Excel experts!
I have 20 colums, each one is about 30 cells long, that are placed on the
worksheet one next to the other. It takes me a lot of time to copy and paste
them into one long colum. How can I do it faster?
Thanks,
Elad