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 = "(\+*\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