splitting names

I have a column of names; some have middle initial, and some have Jr. and I am trying to divide them with a Macro so I can use this with each report upload.

For example:
STEVEN J. JASKOWSKI I want to convert to JASKOWSKI STEVEN J.


Any help is appreciated - I have uploaded my spreadsheet