Delimit Date для удаления отметки времени

Question

В настоящее время я делаю отчет на основе статистики в моей компании. Необработанные данные, которые я получаю, имеют дату с отметкой времени (2 столбца даты - создано / получено). Чтобы удалить метку времени, я установил нестандартный формат m / d / yyyy, а затем разделил каждый столбец отдельно, что дает мне правильную дату. Когда я назначаю свой макрос кнопке и добавляю новые необработанные данные, я получаю эту ошибку ----

Есть ли у кого-нибудь какие-либо советы или понятно, почему я получаю эту ошибку, хотя я делаю только один столбец за раз?

Sub ComplianceOTRSMacro()
    ' ComplianceOTRSMacro Macro
    ' Format Date - Refresh Pivot Tables

    Columns("D:E").Select
    Selection.NumberFormat = "m/d/yyyy"
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("OTRSData[[#Headers],[Created]]") _
        , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

    Columns("E:E").Select
    Selection.TextToColumns Destination:=Range( _
        "OTRSData[[#Headers],[Close Time]]"), DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
        , TrailingMinusNumbers:=True
    Range("OTRSData[[#Headers],[Ticket'#]]").Select
    Sheets("Dashboard").Select
    ActiveWorkbook.RefreshAll
End Sub