Varias líneas en valores y trasponer

Que tal Gonzalez, mi nombre es Ángel(lo de Angelito es por mi hijo), antes que otra cosa, quiero agradecerte el tiempo que tangas para mi pregunta.
Mi pregunta ¿como lograr copiar n número de líneas en valores y tranpsonerlas, te envío un ejemplo.
Archivo original
campo 1 campo 1 campo 2 campo 2 campo3 c3
SELECTED TOTAL 78,825,108 78,617,613 78,617,613 79,439,278
línea 1 4,174,899 4,174,899 4,174,899 4,892,840
línea 2 3,854,690 3,854,694 3,854,694 3,879,648
línea 3 3,813,854 3, 813,854 3,813,852 3,813,851
línea 4 3,768,202 3,768,201 3,768,202 3,768,203

Archivo modificado
Campo 1 línea 1 4,174,899
campo 1 línea 1 4,174,899
campo 1 línea 1 4,174,899
campo 1 línea 1 4,892,840
campo 2 línea 1 4,892,840
campo 2 línea 1 4,892,840
campo 3 línea 1 4,892,840
campo 3 línea 1 4,892,837
campo72
Es decir, los campos siempre son 72, las líneas pueden variar, las líneas se transponen al número de campos (72) cada línea 1, 2, 3... Debe contener sus 72 campos y cada línea con su respectivo valor (igualmente de forma transpuesta.
Mi código es el siguiente:
Cells(4, 4).Select
ActiveCell.Resize(1, 72).Copy
ActiveCell.Offset(117, -1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
ActiveCell.Offset(-115, 1).Select
ActiveCell.Resize(1, 72).Copy
ActiveCell.Offset(115, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
ActiveCell.Offset(-115, -2).Copy
ActiveCell.Offset(0, -1).Resize(72, 1).PasteSpecial_ Paste:=xlPasteValues,Transpose:=True
y lo hace con una sola línea me gustaría que lo hago con todas las líneas, de hecho si gustas te puedo envíar mi archivo.
¿SABES? Estoy investigando pero en verdad soy muy nuevo en estos menesteres y me gustaría que me echaras la mano, de antemano mil gracias.
Buen día.