Luis Mondelo respondió:
Te mando mi solución con esta macro. En la hoja1 tienes los datos en la columna A desde A1 hacia abajo y los copiaremos a la hoja2 Sub proceso() 'por luismondelo Sheets("hoja1").Select Range("a65000").End(xlUp).Offset(1, 0).Value = "fin"...