Как я могу изменить свой код, чтобы добавить импортированные данные в таблицу?

Question

Я не знаю, возможно ли это, но было бы очень полезно, если бы я мог добавить свои импортированные данные в конец таблицы.У меня есть четыре разных типа файлов, которые создаются ежедневно, и у каждого есть различное количество столбцов, строк и типов данных.

В настоящее время мой макрос открывает диалоговое окно, в котором пользователю предлагается выбрать, какой файл импортировать.Затем он открывает диалоговое окно для выбора ячейки, в которую следует импортировать данные.

Например, если вчерашний файл поступает из A1-A100, то сегодняшний файл будет начинаться с A101.

    A   B   C
1
2
...
100
101

Sub Import_Data()
Dim Ret

Ret = Application.GetOpenFilename("Text Files (*.txt), *.txt")

If Ret <> False Then
    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & Ret, Destination:=Application.InputBox(prompt:="Select Input Cell", Type:=8))

    .Name = "Sample"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(2, 2, 1, 2, 2, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False

    End With
End If
End Sub