Adriel Ortiz Mangia respondió:
[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo Valora la respuesta para finalizar saludos! Sub Transponer() 'Por.Dante Amor 'Act. Adriel Ortiz ' Application.ScreenUpdating = False Set h1 = Sheets("Hoja2") 'hoja origen j = 3 For i = 3...