Como puedo hacer para almacenar datos en vertical?

Hola a todos, tengo la siguiente macro para almacenar datos, solo que esta en
forma horizontal, ¿que puedo hacer para que el mismo procedimiento lo relaize
en forma vertical?, los datos ahora se almacenan asi:
folio fecha destino operador turno codigo 1 codigo 2

y requiero se almacene asi:
folio codigo 1 piezas operador turno
folio codigo 2 piezas
folio codigo 3 piezas


With Sheets("LISTA").Range("B65536").End(xlUp)
.Offset(1, 0) = Sheets("CAPTURA").Range("B6") 'FOLIO
.Offset(1, 1) = Sheets("CAPTURA").Range("G8") 'PIEZAS
.Offset(1, 2) = Sheets("CAPTURA").Range("F8") 'DESTINO
.Offset(1, 3) = Sheets("CAPTURA").Range("F6") 'OPERADOR
.Offset(1, 4) = Sheets("CAPTURA").Range("G6") 'TURNO
.Offset(1, 5) = Sheets("CAPTURA").Range("B10") 'CODIGO 1
Sheets("LISTA").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("CAPTURA").Select
Range("B10").Select
End With


de antemano gracias por su ayuda. Saludos