отделить числа пробелом

[destic]

привет всем! имеется таблица, в которой указан % состав выручки, проблема вся в том, что иногда ячейка имеет следующий формат: 60%рубли30%доллары5%евро5%гривны, помогите макросом, который отделит ТОЛЬКО цифры находящиеся внутри ячейки пробелом - 60%рубли 30%доллары 5%евро 5%гривны. Спасибо!

[xmypka]

вот посмотри пробел.rar

[nilem]

или так

Sub ertert()
Dim x, i&, j&
x = Range("C5", Cells(Rows.Count, 3).End(xlUp)).Value
With CreateObject("vbscript.regexp")
    .Global = True: .Pattern = "\d+(?=%)"
    For j = 1 To UBound(x)
        With .Execute(x(j, 1))
            For i = .Count - 1 To 1 Step -1
                x(j, 1) = Mid(x(j, 1), 1, .Item(i).firstindex) & " " & _
                          Mid(x(j, 1), .Item(i).firstindex + 1)
            Next i
        End With
    Next j
End With
Range("C5").Resize(j - 1).Value = x
End Sub

[nerv]

60%рубли30%доллары5%евро5%гривны

.Pattern = "(?=\b\d)"
.Replace(text, " ")

100%рыЫВГUSDJ5%UUDJвлы

.Pattern = "\d+%"
.Replace(text, " $&")

[destic]

Сообщение от nilem

или так

Sub ertert()
Dim x, i&, j&
x = Range("C5", Cells(Rows.Count, 3).End(xlUp)).Value
With CreateObject("vbscript.regexp")
    .Global = True: .Pattern = "\d+(?=%)"
    For j = 1 To UBound(x)
        With .Execute(x(j, 1))
            For i = .Count - 1 To 1 Step -1
                x(j, 1) = Mid(x(j, 1), 1, .Item(i).firstindex) & " " & _
                          Mid(x(j, 1), .Item(i).firstindex + 1)
            Next i
        End With
    Next j
End With
Range("C5").Resize(j - 1).Value = x
End Sub

а как-то можно сделать, чтобы при наличии одного пробела перед цифрами, при запуске макроса еще одни не добавлялись?