Sub iDate()
Dim mo As Object
Dim n As Integer
 With CreateObject("VBScript.RegExp")
   .Global = True
   .IgnoreCase = True
   .MultiLine = True
   .Pattern = "\d{2}\.\d{2}\.\d{2,4}г\.? ?- ?\d{2}\.\d{2}\.\d{2,4}г?"
     If .test(Cells(1, 1)) Then
       Set mo = .Execute(Cells(1, 1))
         For n = 0 To mo.Count - 1
           Cells(n + 1, 2) = mo(n)
         Next
    End If
 End With
End Sub