Gustavo Rodriguez respondió:
Sub Resumen() For Each hoja In ActiveWorkbook.Sheets If hoja.Name <> "resumen" Then hoja.Select columna = Range("mm26").End(xlToLeft).Column ultima = Range("a65000").End(xlUp).Row Range(Cells(2, 1), Cells(ultima, columna)).Copy...
¿Cómo hago una macro en excel para copiar todos los datos d varias hojas a una nueva?