Macro To Split Multiple Valued Cell?

I have Column D containing multiple values that I need to split. The structure is:

Text Text (XYZ) 123 AB C
Text 456 C
Text Text (RST) 7 A CD EF
Text 22

I'd like is to split the cell using a macro rather than formulae so that the resulting cells can be filtered.

The output would be:

Text Text (XYZ)|123|AB|C
Text|456|C
Text Text (RST)|7|A|CD|EF
Text|22|

So the first split would need to be when the number is reached, the second split after the number and then subsequent splits each time a space is encountered (although there may not be any values after the number!).