gemme som CSV med VBA

Jeg bruger denne VBA til at gemme som CSV. mit problem er at min CSV fil ikke er som den skal være, men hvis jeg åbner den og gemmer den igen så ser den rigtig ud. jeg har indsat begge her under som de ser ud når de åbnes i notepad.
her er VBA.

Sub ExportAsCSV()

    Dim MyFileName As String
    Dim CurrentWB As Workbook, TempWB As Workbook

    Set CurrentWB = ActiveWorkbook
    ActiveWorkbook.ActiveSheet.UsedRange.Copy

    Set TempWB = Application.Workbooks.Add(1)
    With TempWB.Sheets(1).Range("A1")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
    End With

    'Dim Change below to "- 4"  to become compatible with .xls files
    MyFileName = CurrentWB.path & "\" & Left(CurrentWB.name, Len(CurrentWB.name) - 5) & ".csv"

    Application.DisplayAlerts = False
    TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    TempWB.Close SaveChanges:=False
    Application.DisplayAlerts = True
End Sub

Her er CSV som den ser ud første gang den gemmes.

filnavn;materiale;Tykkelse;Antal;Gravering;Fladder;Afgrat;Certifikat;buk;Levering;Note;Lås rotation;antal buk
0310 - Ø16 - Stg25_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø40 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg12_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg15_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
Start_3mm.dxf;1;2;5;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;

Her er som den ser ud når jeg åbner den og gemmer igen
og det er sådan den skal se ud.

filnavn;materiale;Tykkelse;Antal;Gravering;Fladder;Afgrat;Certifikat;buk;Levering;Note;Lås rotation;antal buk
0310 - Ø16 - Stg25_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø40 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg12_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg15_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
Start_3mm.dxf;1;2;5;;;;;;;;;
Håber det giver mening