Macro for Transpose

Hi,
I want to transpose vertical data to horizontal data and then concatinate it. I tried it by various methods and looks very tedious. can some one help me with a macro.

My data set:

Apple 1
Apple 2
Apple 3
Apple 4
Apple 5
Apple 6
Orange 7
Orange 8
Orange 9
Orange 10
Orange 11
Orange 12
Orange 13


My result should looks like :

Apple 1/2/3/4/5/6
Orange 7/8/9/10/11/12/13

Can any one help please..
Regards
RR