excel - Macro to copy to another sheet in one line horizontally

Wondering if there is way to copy data from one excel sheet in table format and transform into a single line of data via macro for excel 2007?

For instance, I have got following data in table format;

Date - Name - Amount
02/03/2011 - John - -20.00
05/03/2011 - Peter - 30.89
05/03/2011 - Anthony - 988.00
.....
..
.

The macro should eventually will copy data above to another excel sheet with horizontally (transpose) one continuously with added '@' as a separator.

02/03/2011
John
-20.00
@
05/03/2011
Peter
30.89
@
05/03/2011
Anthony
988.00
...
..
.

can this be done?

I only could work for 1st line, how could i continue with subsequce ?

Range("A2:F2").Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True