Sub xxx()
Dim re1 As Object, re2 As Object, om As Object, c As Range, i%
Set re1 = CreateObject("vbscript.regexp")
Set re2 = CreateObject("vbscript.regexp")

With re1
.Pattern = "([a-zа-яё0-9]+)\s*([a-zа-яё0-9]*)(.*)"
.Global = True
.IgnoreCase = True
End With
With re2
.Pattern = "(\+{0,1}\d{4,})(?=\D+)"
.Global = True
.IgnoreCase = True
End With

For Each c In [a10:a12]
Set om = re1.Execute(c.Text).Item(0)
c.Offset(, 10).Resize(, 6).NumberFormat = "@"
c.Offset(, 10).Value = om.SubMatches(0)
c.Offset(, 11).Value = om.SubMatches(1)
Set om = re2.Execute(om.SubMatches(2))
For i = 0 To om.Count - 1
c.Offset(, i + 12).Value = om.Item(i)
Next
Next
End Sub