Adding :

File = InputBox("Enter file destination like C:\\filename.sql", "Filename", "c:\\InsertScript.sql")

will give you the option of saving somewhere else as the default setting.

I haven't found a way of picking up the formatting of the column to eliminate the ' around numbers etc.