Samle flere filer med VBA "

Jeg er i gang med at lave en overbliks fil hvor der skal samles flere CSV filer i en fil. Jeg har fået lavet nedenstående Kode:

Sub SamleFiler()
    Dim path            As String
    Dim FileName        As String
    Dim LastCell        As Range
    Dim Wkb            As Workbook
    Dim ws              As Worksheet
    Dim ThisWB          As String
   
    Dim sysXLS, tabel As Variant, ræk As Long, k As Long, antalKolonner As Long, antalK As Integer
    Dim linje As String
   
    Set sysXLS = ActiveWorkbook
    ræk = 1
   
    ThisWB = ThisWorkbook.Name
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    path = "G:\Afdeling\Salg\Klas\LOGISTIK"
   
    FileName = Dir(path & "\*.csv", vbNormal)
    Do Until FileName = ""
        If FileName <> ThisWB Then
            Open path & "\" & FileName For Input As #1
           
            While Not EOF(1)
                Line Input #1, linje
               
                tabel = Split(linje, ";")
                antalK = UBound(tabel)
               
                For k = 1 To antalK
                    sysXLS.Sheets(1).Cells(ræk, k) = tabel(k - 1)
                Next k
                ræk = ræk + 1
            Wend
            Close #1
        End If
        sysXLS.Sheets(1).Columns.AutoFit
        FileName = Dir()
    Loop
    Application.EnableEvents = True
    Application.ScreenUpdating = True
   
    Set Wkb = Nothing
    Set LastCell = Nothing
   
    Set sysXLS = Nothing
End Sub

Og den virkede fint da der var 9 kolonner, nu er der så kommet to ekstra kolonner på og så kommer kun overskriften med fra den sidste kolonne ikke indholdet.
Er der nogen der kan hjælpe med at justere den så den virker?
Der arbejdes i excel 2007