Copy part of a cell to 2nd workbook

I'm having issues copying part of a cell in VB. I can do a copy but can’t figure out how to modify the string value prior to paste in new cell.

Here's what I'm trying to do -

Workbook1.Sheet1.CellC45 = John Doe

I'd like to copy just the last name to a new cell in a different workbook

Workbook2.Sheet1.CellE2 = Doe

Also have to make sure I'm only getting the last word in the original cell as in John Quincy Adams = Adams

Any help would be greatly appreciated!!