vba: split tekst og tal med mellemrum

Har et regneark med en lang række af tal og tekst som står i kolonne A. Dem vil jeg have splittet så der er et mellemrum mellm tal og tekst. Tal og tekst har forskellig længde i rækkerne, så man kan ikke bruge den formel.
Har fundet denne kode på nettet.

Sub SplitTextNum()
Dim r As Range, rC As Range
Dim v As Variant

Set r = Range("A1", Range("A1").End(xlDown))
With CreateObject("VBScript.RegExp")
    .Pattern = "(\d+|\D+)"
    .Global = True
    For Each rC In r
        v = Split(Mid(.Replace(rC.Value, "|$1"), 2), "|")
        rC.Offset(, 1).Resize(, UBound(v) + 1).Value = v
    Next rC
End With
End Sub

Den overfører tallet til kolonne B og teksten til kolonne c.
Hvordan skal den se ud hvis den skal overføre begge dele til kolonne B men med et mellemrum imellem?