Как вставить данные в таблицу без перемещения данных?

Question

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

Я предоставляю вам фрагмент кода, который мне кажется проблематичным.

    Sub OpenCSVFile()
     ' Load the CSV extract
    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & fpath & "\" & ffilename, Destination:=Range("$A$1"))
    .Name = "text"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 850
    .TextFileStartRow = 4
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileOtherDelimiter = "|"
    .TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
      1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
    End With
    End Sub

Я хочу вставить свои данные в таблицу, не перемещая таблицу и, следовательно, не вставляя их рядом с ней.

До:

После: