Sub Test()
    Application.DisplayAlerts = False
    With ActiveSheet
        With .Range(.Cells( 2 ,  1 ), .Cells(.Rows.Count,  1 ).End(xlUp))
            .Offset(,  1 ) = "=TEXT(RC[-1],""0000-00-00 00\:00\:00"")"
            .Value = .Offset(,  1 ).Value
            .TextToColumns _
                Destination:=Range("A2"), _
                DataType:=xlDelimited, _
                Space:=True, _
                FieldInfo:=Array(Array( 1 ,  5 ), Array( 2 ,  1 ))
        End With
    End With
    Application.DisplayAlerts = True
End Sub