如何编辑代码以将导入的数据追加到表？

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