Как склеить 30 csv в один - VBA

Sub Склеить_CSV_файлы_из_CurDir()
    ' Макрос последовательно вставляет в новый файл
    ' данные из всех CSV файлов текущей директории, со 2-го - без шапки.
    Dim i&, j&
    Dim TextLine$, MyPath$, MyFileName1$, MyFileName2$
    'MyPath = CurDir & ""
    MyPath = ActiveWorkbook.Path & ""
    MyFileName2 = "Склейка.csv"
    Open MyFileName2 For Output Lock Write As #2
    MyFileName1 = Dir(MyPath & "*.csv")
    i = 0
    Do Until MyFileName1 = ""
        Open MyPath & MyFileName1 For Input Lock Read As #1
        i = i + 1
        j = 0
        Do While Not EOF(1)
            Line Input #1, TextLine
            j = j + 1
            If i = 1 Or j > 1 Then Print #2, TextLine
        Loop
        Close #1
        MyFileName1 = Dir
    Loop
    Close #2
End Sub