Victor Rodriguez respondió:
El código que necesitas es este: Sub copiar_pegar() Set h1 = Workbooks("MMampo.xls").Sheets("MMampo.xls") Set h2 = Workbooks("datos mm.xlsm").Sheets("Hoja1") h2.Activate u = Range("A" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u, "A") = h1.[A1]...