Elena Ferreras

Dante Amor respondió: Te anexo la macro Sub CopiarColumnas() 'Por.Dante Amor Columns("A").ClearContents u2 = 1 For i = Columns("B").Column To Columns("UG").Column u1 = Cells(Rows.Count, i).End(xlUp).Row Range(Cells(1, i), Cells(u1, i)).Copy Range("A" & u2) u2 =...

Luis Mondelo respondió: Prueba con esta macro y me cuentas: (Empiezo a copiar desde B1 y C1. Si tuvieras encabezados en esas columnas debiéramos empezar desde B2 y C2, se cambiaría en la macro) Sub columnas() Range("b1:b" &Range("b65000").End(xlUp).Row).Copy...