VBA til at lave CSV fil

Hejsa,

Jeg kæmper med at få denne kode til at makke rette.
Den kommer med nogle mærkelige linjer, den laver laver den første linje, så laver den den næste linje, men i forlængelse kommer der mere på samme linje.
Sådan fortsætter det ned af og med længere og længere linjer.
Den skal som sådan kun tage det fra der er i A2 til O13 området.
Det må være noget med de tællere og måske dette Print #fNum, Left(csvVal, Len(csvVal) - 2)

Hvad er det der går galt og er der en der kan hjælpe her?

Sub GemSomCSV()
   
    Dim myCSVFileName As String
    Dim myWB As Workbook
    Dim rngToSave As Range
    Dim fNum As Integer
    Dim csvVal As String
    Dim firma As String
    firma = Range("R5").Value
   
    Set myWB = ThisWorkbook
    myCSVFileName = myWB.Path & "\" & firma & VBA.Format(VBA.Now, "yyyy-mm-dd hh-mm-ss ") & ".csv"
    csvVal = ""
    fNum = FreeFile
    Set rngToSave = Range("A2:O13")
   
    Open myCSVFileName For Output As #fNum
   
    For i = 2 To rngToSave.Rows.Count
        For j = 2 To rngToSave.Columns.Count
            csvVal = csvVal & rngToSave(j, i).Value & ";"
        Next
        Print #fNum, Left(csvVal, Len(csvVal) - 2)
        'csvVal = ""
    Next
   
    Close #fileNumber
 
End Sub