César Mera respondió:
Prueba con este código y me dices si le debemos agregar algo pues no me es clara la pregunta. Sub Transponer() ' Macro grabada el 25/05/03 por MERA Range(ActiveCell.Address, ActiveCell.Offset(24, 9).Address).Select Selection.Copy...