Обновлять с «Текст в столбцы» каждый раз, когда исходный файл обновляется

Question

При экспорте моя устаревшая система удаляет из столбцов строк с ОБЩИМИ символами доллара знак «$» и не допускает перенос ДАТЫ в SHEET2. Я попытался записать процесс Text to Column для включения в сценарий vba, однако Sheet1 правильно передает все данные в Sheet2, перед тем как сценарий останавливается, 2 столбца увеличивают итоги на одну строку; и скрипт VBA Text to Column не выполняет то, что я прошу сделать по порядку.

Private Sub TextToColumn ()

Dim LastRow As Long
Dim SHEET2 As Worksheet
Dim Results As Worksheet

Set Results = Sheets("SHEET2")
LastRow = Results.Cells(Results.Rows.Count, "Z").End(xlUp).Row

Range("A15:A400").Copy
Results.Range("A" & LastRow + 2).PasteSpecial xlValues
Range("B15:B400").Copy
Results.Range("B" & LastRow + 2).PasteSpecial xlValues
Range("J15:J400").Copy
Results.Range("C" & LastRow + 2).PasteSpecial xlValues
Range("R15:R400").Copy
Results.Range("D" & LastRow + 2).PasteSpecial xlValues

Application.DataEntryMode = False

Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 3), Cells(lrow, 2)).TextToColumns 
  Destination:=Range("C2"), _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, 
        ConsecutiveDelimiter:=False, _
        Semicolon:=True, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

End Sub