Sub uuu()
    Dim a(), b() As String
    Dim i&
    Dim el
    a = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To UBound(a), 1 To 2)
    For i = 1 To UBound(a)
        For Each el In Split(a(i, 1), " ")
            If el Like "*[0-9]*" Then
                b(i, 2) = el
            Else
                b(i, 1) = Join(Array(b(i, 1), el))
            End If
        Next
    Next
    Cells(2, 4).Resize(UBound(b), UBound(b, 2)) = b
End Sub