So I have a few hundred spreadsheets with the following structure:



Persson L. S skogsarb Granberg Malung
Persson M R fru
Persson N skogv Sjög 23 Torsby



What I want to do is move/split the ultimate word in every cell in column A to a parallel cell in column B, and then delete the word from column A.

Also - ideally - I would like not to do this when the final word is fru. (However, help with the first part would still be much appreciated even if the second request is not possible.)

Is this possible to do in VBA?