Sub Дата()
    Dim a()
    Dim i&
    Dim sp_date, sp_day
    Dim d1$, d2$, m1$, m2$, y$
    Application.ScreenUpdating = False
    With ActiveSheet
        a = .UsedRange.Value
        For i = 1 To UBound(a)
            If a(i, 1) <> "" Then
                a(i, 1) = WorksheetFunction.Trim(a(i, 1))
                a(i, 1) = Replace(a(i, 1), " -", "-")
                a(i, 1) = Replace(a(i, 1), "- ", "-")
                sp_date = Split(a(i, 1), " ")
                fl = 0
                For j = 0 To UBound(sp_date)
                    If InStr(sp_date(j), "-") Then
                        sp_day = Split(sp_date(j), "-")
                        Exit For
                    End If
                Next j
                If j Then
                    If j = UBound(sp_date) + 1 Then
                        d1 = sp_date(0)
                        m1 = sp_date(1)
                        d2 = d1
                        m2 = m1
                        y = sp_date(2)
                    Else
                        d1 = sp_date(0)
                        m1 = sp_day(0)
                        d2 = sp_day(1)
                        m2 = sp_date(2)
                        y = sp_date(3)
                    End If
                Else
                    d1 = sp_day(0)
                    m1 = sp_date(1)
                    d2 = sp_day(1)
                    m2 = m1
                    y = sp_date(2)
                End If
                .Cells(i, 2) = CDate(d1 & " " & m1 & " " & y)
                .Cells(i, 3) = CDate(d2 & " " & m2 & " " & y)
            End If
        Next i
    End With
    Application.ScreenUpdating = True
End Sub