Brian,

assuming there are a random number of spaces in your
addresses up to a maximum of ten and the addresses are in
the range A2:A100, here are a few suggestions.

Use DataText to Columns to separate the parts of the
address, placing the result in the range starting at C2.
Then put this formula in B2 and copy down as far as you
need:
=Offset(C2,0,counta(d2:M2)-1,1,1)

This will find the last entry in the ten cells starting at
C2. You can then CopyPaste Specialvalues to leave the
data you want.

If you don't want to bother with this and are desperate
for a macro, something along these lines should do it
(just vary the source range before you start:

Sub Suffix()

Dim X As Integer
Dim cl As Range

For Each cl In Range("A2:A100").Cells

For X = Len(cl.Value) To 1 Step -1

If Mid(cl.Value, X, 1) = " " Then
cl.Offset(0, 1).Value = Right(cl.Value, Len(cl.Value)-X)
Exit For
End If

Next X
Next cl

End Sub

'Cheers, Pete.

-----Original Message-----
I have a list of addresses and need to move the suffix
(DR, ST, AVE, CIR, RD) to the cell to the right. Is
there
a macro I could program to do this? I have alot of them
and don't really want to do this by hand one at a time.

Thanks.
.