Semicolon Delimiter instead of comma ?

Hi
I have been using Jerry Beaocaire's code to output CSV files, and it works great, except for 2 problems:
1: The delimiters being Comma, and I need them to be Semicolon. I have tried altering the code to FileFormat:=xlCSVMSDOS. But it makes no difference, I have also tried altering the windows setting, but it doesn't seem to affect it at all.

Is there any way to alter the code to use Semicolon instead of Comma ?

2: Im using this

Option Explicit

Private Sub Worksheet_Activate()
Dim LR As Long
Range("A2:B" & Rows.Count).ClearContents

    With Sheets("INPUT")
        .Range("A:F").AutoFilter Field:=2, Criteria1:=Me.Name
        .Range("A:F").AutoFilter Field:=6, Criteria1:=">=0.00001"
        LR = .Range("B" & Rows.Count).End(xlUp).Row
        If LR > 1 Then _
            .Range("A2:A" & LR & ",E2:E" & LR).Copy Range("A2")
        .AutoFilterMode = False
    End With

Beep
Range("A2").Select
End Sub

And it seems to break the code to make the CSV files. Any suggestions on how to solve this. I was thinking maybe two buttons, one to sort with the above code(removing the macro from the worksheet), and one to make the CSV files.

Thanks for all help