Andrea
   I modified your macro by taking out the extraneous stuff and added the
code to loop through all the rows.  I used a second sheet as the destination
sheet and named it "Destination".  Data starts in the Destination sheet in
row 2.  I assumed the source sheet was named "Source".  Change these names
in the code (one place for each name) to fit what you have.  Come back if
this doesn't do what you want.  Be sure to try this out on a copy of your
real file first.  HTH  Otto
Sub copy_transpose()
   Dim rColA As Range
   Dim i As Range
   Dim Dest As Range
   Dim DestRow As Long
   Sheets("Source").Select
           'The source sheet is the active sheet
   Set rColA = Range("A3", Range("A" & Rows.Count).End(xlUp))
   Application.ScreenUpdating = False
   With Sheets("Destination") 'The destination sheet
       Set Dest = .Range("A2")
       For Each i In rColA
           i.Resize(, 6).Copy 'Columns A:F
           Dest.PasteSpecial
           i.Offset(, 6).Resize(, 12).Copy  'Columns G:R
           Dest.Offset(, 6).PasteSpecial Transpose:=True
           DestRow = .Range("G" & Rows.Count).End(xlUp).Offset(1).Row
           Set Dest = .Cells(DestRow, 1)
       Next i
   End With
   Application.ScreenUpdating = True
End Sub