Split a string in two. No delimeters

[cipirica]

Hi. Can anyone help me? I have strings in each cell of column A like this: AlanAlda, MarkMorrison, JohnCena, etc and i want to split these strings in column B and C like this: Alan Alda, Mark Morrison, John Cena, etc.
I need a vba for this not a function or formula. Thank you for your time.

 

[Joe4]

You are welcome.

 

[cipirica]

Yes, that was my assumption.
Did you try the revised code I posted?

yes and it worked perfectly. Thx a lot