Keep Leading Zero For CSV File

I've been tasked at work with created a daily CSV upload file for a new system. Typically, the format the raw data comes in is .xls and very untidy (direct from SAP).

As such I have created a small macro which tidys up the spreadsheet, and saves it as a CSV. However, I have only just noticed that for the product codes we have which have a leading zero, the .xls file displays the leading zero without a problem, but in the resultant CSV file they are gone.

The macro I use, is as follows:

Code:

Sub SamplesUpload()
'
' SamplesUpload Macro
'
'
Range("A:A,G:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft

[Code] .....

As you can see, it's very crude (I'm a complete nubie when it comes to this) - the Application.Run "PERSONAL.xlsm!CSV" is a small macro which puts double quote marks around all content of any populated cells in column B and the Application.Run "PERSONAL.xlsm!SaveAsCSV" is a small macro which saves the current sheet as a CSV file - code for those as below:

Code:

Sub SaveAsCSV()
Dim DTAddress As String
Dim FileName As String
Dim FullyQualifiedFileName As String
'Get the path to the desired save location
[Code] ........

Code:
Sub CSV()

Dim arrB As Variant: arrB = Intersect(ActiveSheet.UsedRange, [B:B]).Value
Dim R As Long
For R = 1 To UBound(arrB, 1)
arrB(R, 1) = """" & arrB(R, 1) & """"
Next R
Intersect(ActiveSheet.UsedRange, [B:B]).Value = arrB

End Sub

So, why the leading zeros are not in my CSV file, and how to get them back?

The line which I use to get the leading zeros is:

Selection.NumberFormat = "[>9999]000000;General"

And this is because the only codes which have a leading zero are 6-digits long. Could I maybe add a single ' to the beginning of each cell in column A to make them text, and thus keep the leading zero?

To confirm, the column which contains the product codes is column A.