Split address code not working

[RAJESH1960]

Hello formula experts
I have this code which splits the address from 1 cell to 4 in the adjacent cells. It was working in an earlier application but when I tried to change and edit the range compatible for this application it is not splitting the data. I would really appreciate it, if someone could please help me to correct the code.
Split address.xlsm

 

[RAJESH1960]

JohnnyL. If you have understood my requirement why don't you please write the code in your style with your comments. It will be very helpful in future and I don't have to post the same query over and over again.

 

[RAJESH1960]

With the help of your comments in the 4-5 applications we created together, I have been able to create around 12 applications just by referring to your comments.

 

[RAJESH1960]

fyi This unsolved Query is posted in another forum
Split Address code not working

 

[RAJESH1960]

fyi, The above query is solved.