Option Explicit
 
Sub xlsm_csv()
    Dim a_path As String
    Dim csvF As String
    Dim shb As Worksheet
    Dim sh As Worksheet
    Dim WB As Workbook
    
    Dim lcol_from As Long
    Dim lrow_insert As Long
    
    Set shb = ActiveSheet
    a_path = ActiveWorkbook.Path & "\"
    
    csvF = Dir(a_path & "*.csv", vbNormal)
    
    Application.ScreenUpdating = False
    Do Until csvF = ""

        Set WB = Nothing
        Set sh = Nothing

        Set WB = Workbooks.Open(Filename:=a_path & csvF, ReadOnly:=True, Local:=True)
        Set sh = WB.Worksheets(1)
        lcol_from = sh.Cells(1, sh.Columns.Count).End(xlToLeft).Column
        lrow_insert = shb.Cells(shb.Rows.Count, 1).End(xlUp).Row + 1
        shb.Range(shb.Cells(lrow_insert, 1), shb.Cells(lrow_insert, lcol_from)) = _
            sh.Range(sh.Cells(1, 1), sh.Cells(1, lcol_from)).Value
        WB.Close False
        csvF = Dir()
    Loop
    Application.ScreenUpdating = True
End Sub