How to save a file in excel using vba

I have a file. after inporting the data from another source i need to save as
Exising name of the file & "All" & yesterday date
Please look at my code and help me find out what is wrong with that, please

Thank you, working great
it saves automatically in My documents (i understand because of the default folder)
is there any chance to force to save the file to differenct place i want, let say desktpop???