Samle flere filer i en overbliksfil

Det skal lige siges at de filer som skal samles er .CSV filer.
Jeg har fundet frem til nedenstående Makro, men det fungere ikke helt som jeg ønsker.
Den sætter dataene ind på hvert sit ark, men da den videre bearbejdning skal være med pivotabel har jeg behov for at dataene kommer under hinanden. Og så bliver dataene sat ind med komma adskilles. det skal gerne ændres til alm. regnark opstilling.
Er der nogen som er skarpe på dette?

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
   
    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
            Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName)
            For Each ws In Wkb.Worksheets
                Set LastCell = ws.Cells.SpecialCells(xlCellTypeLastCell)
                If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then
                Else
                    ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                End If
            Next ws
            Wkb.Close False
        End If
        FileName = Dir()
    Loop
    Application.EnableEvents = True
    Application.ScreenUpdating = True
   
    Set Wkb = Nothing
    Set LastCell = Nothing
End Sub

Da ingen er kommet med noget lukkes tråden og jeg prøver at fomulere den på ny.