Sub xxx()
     Dim om As Object, c As Range, i%
     With CreateObject("vbscript.regexp")
         .Pattern = "([a-zа-яё0-9 ]+)"
         .Global = False
         .IgnoreCase = True
         For Each c In Range("a2", [a65536].End(xlUp)).Cells
             If .test(c.Text) Then
                 c.Offset(, 7).Value = .Execute(c.Text).Item(0)
             End If
         Next
         .Pattern = "(\+?\d{10,11})"
         .Global = True
         For Each c In Range("a2", [a65536].End(xlUp)).Cells
             If .test(c.Text) Then
                 Set om = .Execute(c.Text)
                 For i = 0 To om.Count - 1
                     c.Offset(, i + 8).NumberFormat = "@"
                     c.Offset(, i + 8).Value = om.Item(i)
                 Next
             End If
         Next
     End With
End Sub

Sub xxx()
     Dim om As Object, c As Range, i%, a
     With CreateObject("vbscript.regexp")
         .Pattern = "([a-zа-яё0-9 ]+)"
         .Global = False
         .IgnoreCase = True
         For Each c In Range("a2", [a65536].End(xlUp)).Cells
             If .test(c.Text) Then
                 a = Split(.Execute(c.Text).Item(0), " ", 2)
                 c.Offset(, 2).Resize(, UBound(a) + 1).Value = a
             End If
         Next
         .Pattern = "(\+?\d{10,11})"
         .Global = True
         For Each c In Range("a2", [a65536].End(xlUp)).Cells
             If .test(c.Text) Then
                 Set om = .Execute(c.Text)
                 For i = 0 To om.Count - 1
                     c.Offset(, i + 4).NumberFormat = "@"
                     c.Offset(, i + 4).Value = om.Item(i)
                 Next
             End If
         Next
     End With
End Sub