Holas, aqui otras opciones:
Cuando el archivo ya esta grabado, posee ruta, y quieres guardar los cambios utiliza lo siguiente:
Sub Macro1()
ActiveWorkbook.Save
End Sub
Cuando el archivo es creado por el proceso, y aun no tiene ruta definida, utiliza lo siguiente que es el codigo del "Guardar Como" :
Sub Macro2()
Application.DisplayAlerts = False 'Esto evita mostrar el box de pregunta
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\Escritorio\Libro1.xls", FileFormat:=xlNormal
End Sub
Espero que les sea de utilidad
Saludos desde Lima
Danlev