la macro sarebbe questa
Sub trasp()
LR = Cells(Rows.Count, "A").End(xlUp).Row
dr = 2
dc = 6: LC = 15
For r = 2 To LR Step 19
For c = dc To LC
Cells(dr, c) = Cells(r + (c - dc) * 2, 2)
Next
dr = dr + 1
Next
End Sub ma funziona soltanto se il numero delle righe di ciascuna sezione è sempre lo stesso, cosa che nell'esempio non è rispettata
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta