I need to create a macro that will edit a simple string for me so I
don't have to do it by hand.

Qualifications

1) Need to be able to set the range (IE B1:H8) or whatever I need
2) The edit must read different lengths text (see examples)
3) Read and then place on letter at the end of the string.
4) Delete character and extra spaces.

Here is what the current format looks like.

T | TI06

Here is what I need to to look like

TI06T

Here is another example

N | KOS21 to KOS21N

In laymens terms it would be.

1) Read first character place at the end of the string.
2) Delete the first four characters/spaces of the string. (This is a
constant.)

Any help out there for me? Pretty please =)