Marco to create .CSV

This is one of my first macros so please be nice:). I have pieced it together through recording and Google searches. It performs as expected but the program/website used to import the file does not recognize the file type.

If I open the file and select "save" and "yes" to keep using CSV format and then close the file and select "no" to save file, the program/website will import the file.

I think this is the piece that is not saving the file correctly.