Excel VBA TextToColumns向上推文本并覆盖标题

Question

这段代码只是我主要代码的一小部分，所以我知道它缺少一行，例如，调出工作表，但是我已经覆盖了。

我已经将问题缩小到这个范围，但是我对excel的了解不足以弄清楚-why-。我认为这与数组有关，但不确定。基本上，发生的事情是我运行此操作，它将数据列并向上推1行，并用EN2中的值覆盖标头。列中的最后一个单元格不会空白，而是复制自身。就像最后一个值被复制并粘贴在底部一样，但不是覆盖单元格，而是将所有单元格数据向上推一行。很奇怪。

Sub RoutineTest()
Range(Range("EN2"), Range("EN2").End(xlDown)).Select
    Selection.TextToColumns Destination:=Range( _
        "BurnData[[#Headers],[est_po_place]]"), DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 3) _
        , TrailingMinusNumbers:=True
End Sub

希望有人可以帮助我找出原因。