划定日期以删除时间戳

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