Enrique Bernal respondió:
Este código hace lo que necesitas. Sub Guarda() Rows("2:2").Select Selection.Copy Sheets("Historial semanal").Select k = Range("F" & Cells.Rows.Count).End(xlUp).Row + 1 Rows(k).Select ActiveSheet.Paste Sheets("Datos Semanales").Select...