Split cell contents by case

I'm writing a macro that will copy certain cells from one worksheet to another but I've run into a problem. I have a column called 'Full Name'. This contains names in the format: All uppercase last name, space, capitalised first name:

SMITH John
DOE Jane
JACKSON Michael
BARON COHEN Sacha

I'd like the full names split and copied into two cells, 'First Name' and 'Last Name'.

I can use the 'Text to Columns' command in Excel 2007 to split the names using a SPACE as a delimiter, but this will create 3 columns for BARON COHEN Sacha. I need to have all the uppercase words in one column.

The only way around this I can think of (please correct me if there is another way) is splitting the cell by case. If a word is purely uppercase it goes in the 'Last Name' column and the other words in the cell go in the 'First Name' column.

Any help would be appreciated.