Enrique Bernal respondió:
He cogidos tus códigos solo debes cambair el orden y listo, espero sea lo que necesitas: Sub Guardar_historico_Imprime() With Worksheets("quedan") Worksheets("histórico").Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(, 5) = _...