Como unir ficheros varios csv en un libro xls

Me gustaría modificar la macro para unir varios archivos csv en un libro nuevo y los registros me los pegue en la misma hoja. Y me ponga los datos por columnas me los separa por ; como los csv esta macro me pone en el mismo libro las diferentes hojas, muchas gracias.

Public Sub GetSheets(ByVal ruta As String)
Dim Path As String, Filename As String
Dim WB As Workbook
Dim Sht As Worksheet, ShtDest As Worksheet
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
Filename = Dir(ruta & "*.csv*")
Do While Filename <> ""
    Set WB = Workbooks.Open(Filename:=ruta & Filename, ReadOnly:=True)
    For Each Sht In WB.Sheets
        If Filename Like "*T10*" Then
            Set ShtDest = ThisWorkbook.Sheets.Add(After:=Sheets(1))
            Sht.Cells.Copy
            ShtDest.Name = Sht.Name 
            ShtDest.Cells.PasteSpecial xlValues
        End If
    Next Sht
    WB.Close
    Filename = Dir()
Loop
With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
End Sub