Moving last word in text string

I would like to move the last word in a text string in a singe cell to the cell on its right (for all cells in the colunm). The text list could be:

James Brown T-3250
Jackie Chan Hero T-3200
Mary T-3333


In this list I want the last word (i.e. the T-something) cut and pasted to the column on the right, leaving the rest of the words intact.

Thanks.


Solved: Stanley's code was very clean and nice. Thanks all.

Try this

Assuming your data is in Column A begining in A1
in C1

Please Login or Register  to view this content.

In D1

Please Login or Register  to view this content.

Drag/Fill down

Copy C:D

PasteSpecial > values in A1

Delete C:D


Hope this helps.

If you need any further information, please feel free to ask further

However

If this takes care of your needs, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED. It helps everybody!
Also
If you are satisfied by any members response to your problem please consider using the scales icon top right of thier post to show your appreciation.

maybe..

Please Login or Register  to view this content.

jothecat,

I am assuming that your data begins in cell A1.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Adding the Macro
1. Copy the below macro, by highlighting the macro code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Please Login or Register  to view this content.

Then run the "SplitColA" macro.