d2enri respondió:
Solo has de cambiar la posición de copiar y pegar de H7 para que te lo haga en el libro nuevo puede quedar algo así Sub Guardar() ruta = "C:\Factura" nbre = "Factura " & ActiveSheet.Range("H5") ActiveSheet.Copy Application.DisplayAlerts = False...