Экспорт файла CSV

Question

Я хотел получить несколько TXT-файлов на одном листе, я попробовал приведенный ниже код, но он не копирует данные ниже существующих данных на листе.

данные перезаписывают существующие данные.

Sub QueryImportText()
    Dim sPath As String, sName As String
    Dim LR As Long, qt As QueryTable

    sPath = "F:\WIN7PROFILE\Desktop\New folder\"
    sName = Dir(sPath & "*.txt")
    LR = Sheets("Log").UsedRange.Rows.Count
    Do While sName <> ""
        LR = LR + 1
'        Range("A" & LR).Value = sName
        With Sheets("Log").QueryTables.Add(Connection:= _
            "TEXT;" & sPath & sName, Destination:=Range("A" & LR))
        .Name = Left(sName, Len(sName) - 4)
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "|"
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        End With
        sName = Dir()
        For Each qt In ActiveSheet.QueryTables
            qt.Delete
        Next
    Loop
End Sub

Можете ли вы помочь мне с правильным кодом, чтобы все txt-файлы вставлялись друг в друга в листе «Журнал»