I\'m currently using the following to automatically save the output to a specified file.
ActiveWorkbook.SaveAs Filename:=FilePath & Range("E9")