Sub allcolumnstoa()
lc = Cells.SpecialCells(xlCellTypeLastCell).Column
For i = 2 To lc
slr = Cells(Rows.Count, i).End(xlUp).Row
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
Range(Cells(1, i), Cells(slr, i)).Copy Cells(dlr, "a")
Next i
'below line deletes old columns
Range(Cells(1, 2), Cells(1, lc)).EntireColumn.Delete
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"alansi" wrote in message
...
Dear friends i have many paralled columns that i want to converte it to
single column by making each column follow the other. for example

A E I
B F J
C G K
D H L

i want to change it to single column without copy and past because i have
too many columns.
as follow

A
B
C
D
E
F
G
H
I
J
K
L

any idea how to make it in excle

thanks