Puedes utilizar este código
Sub GaradarOtroArchivo()
Application.ScreenUpdating = False 'evita que se vean los cambios de las ventanas
Application.DisplayAlerts = False 'evita que se vean los anuncios al guardar
Workbooks.Open Filename:="C:\Libro1.xls" 'abre el libro donde quieres guradar el dato
Workbooks("Libro1.xls").Worksheets("Hoja1").Range( "B5").Select 'selecciona hoja y celda donde quieres poner el dato
ActiveCell.FormulaR1C1 = "Aqui va el dato" 'aqui pones el dato, puedes variar dependiendo de lo que quieras poner
ActiveWorkbook.Save 'salva el arvhivo
ActiveWindow.Close 'lo cierra
Application.DisplayAlerts = True 'activa las alertas
Application.ScreenUpdating = True 'activa la actualización de la pantalla
End Sub
espero que te sirva, saludos