If you can live with an xlsm file,
how about a User Defined Function (UDF) ?
Code:
Public Function LastTwo(Orig As String) As String
Dim i As Long, arr
arr = Split(Orig, " ")
For i = LBound(arr) To UBound(arr)
LastTwo = Trim(LastTwo & " " & Right(arr(i), 2))
Next i
End Function