Copy all date of column to another cell of another column

[parscon]

I need help . I have 1 column with data and want to copy all of them to another column just to 1 cell , that mean copy all data from 1 column to cell of another cloumn .

like :

Column A Column B
1 DATA1 1 DATA1 -DATA2- DATA3- DATA4- DATA5
2 DATA2
3 DATA3
4 DATA4
5 DATA5
.

if anyone canhelp me , please provide me Macro code for this .

Thank you so much .

[austenr]

[VBA]Sub test()
'

'

'
Range("A1:A5").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub[/VBA]

[parscon]

Dear austenr,
Thank you very much for your big help , just there is 1 problem when i run the code DATA on A (A-1 , A-2 , A-3 ...) column copy to B1 , C1 , D1, ... Column.

I need copy all data on A Column (A-1 , A-2 , A-3 ...) just To Cell B1 of B column.

Please help me , Thank you again .