Sub main()
Dim s, a() As String, rn As Range, c As Range, d1 As Date, d2 As Date, tmp As Date
For Each rn In Selection
  a = Split(Replace(Replace(Replace(Replace(rn, "-", " "), "г", " "), ",", " "), "_", " "))
  d1 = 0: d2 = 0
  For Each s In a 'Split(Replace(Replace(Replace(Replace(rn, "-", " "), "г", " "), ",", " "), "_", " "))
    If IsDate(s) Then
      If d1 = 0 Then
        d1 = s
      ElseIf d2 = 0 Then
        d2 = s
      'Else
      '  Stop
      End If
    End If
  Next
  If d1 > d2 Then tmp = d1: d1 = d2: d2 = tmp
  'Stop
  rn.Offset(, 1) = d1
  rn.Offset(, 2) = d2
Next
End Sub