Function iPerestanovka(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "([А-ЯЁ ]+)([A-Z\d\.\s]+)(\d{2}\.\d{4}\.\d{4})"
   If .test(cell) Then
     iPerestanovka = .Replace(cell, "$3 $1$2") & "Helion"
   Else
     iPerestanovka = ""
   End If
 End With
End Function