Save as csv vba

I'm trying to save Sheet (File) as a csv, (using the code below)
it saves it as csv, but It has Commas at the end of the file, then it has Quotes and Double Quotes around certain numbers.
Can you please help saving it without the Commas and Quotes and Double Quotes.

Application.DisplayAlerts = False
Dim strActive As String
strActive = ActiveWorkbook.Name

        ActiveWorkbook.SaveAs "C:\Users\Wassim\Desktop\File_Revised", xlCSV
        ActiveWorkbook.Close SaveChanges:=False
        Application.DisplayAlerts = False
        MsgBox "Export Completed"
        Exit Sub

Thank you,
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Russell FoxDatabase DeveloperCommented:
Try xlTextPrinter instead of xlCSV:
ActiveWorkbook.SaveAs "C:\Users\Wassim\Desktop\File_Revised", xlTextPrinter

Open in new window

W.E.BAuthor Commented:
Thank you for your help,
The Quotes are gone, but
It is removing all commas,

I only need to remove commas after the last line.
, , , ,

Wayne Taylor (webtubbs)Commented:
1) The quotations around certain numbers are required as they contain a comma as the thousands separator, and would confuse any program reading the file. If you don't want the quotations, format as Number, not Currency.
2) The commas at the end caused by non-blank cells. Prior to saving the file, delete any rows below your data.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
W.E.BAuthor Commented:
Thank you Wayne,
formatting to numbers seems to work,
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.