Adding spaces between addresses

Hello. I have a problem with some data which is together like this:

Brunkebergstorg9Stockholm103Sverige
111KlaraÖstrakyrkogata7Stockholm52Sverige
Drottninggatan8836StockholmSverige
Brunkebergstorg9StockholmSverige10327

All street number and ZIP codes are together with streetnames and city names.But I would like to get to this form:

Brunkebergstorg 9 Stockholm 103 Sverige
111 Klara Östrakyrkogata 7 Stockholm 52 Sverige
Drottninggatan 8836 Stockholm Sverige
Brunkebergstorg 9 Stockholm Sverige 10327

Is it possible to make VBA code or something that which will but spaces to the text when he finds that letter and number is together?

Between Stockholm and Sverige there is no number

perhaps

Sub splitwordsandnumbers()
   Dim rCell             As Range
   Application.ScreenUpdating = False
   
   With CreateObject("vbscript.regexp")
      .Pattern = "(([0-9]+)|([A-Z]))"
      .ignorecase = False
      .Global = True
      For Each rCell In Selection
         rCell.Value = Application.Trim(.Replace(rCell, " $2 $3"))
      Next rCell
   End With
   Application.ScreenUpdating = True
End Sub

select the cells and then run the code

My compliments !!!

my pleasure :-)

If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save