Im using the fallowing macro that works with just the street name and suffix in A1
Option Compare Text
Public Sub MoveSuffix()
SuffixString = "ST,Street,PL,Place,Blvd,Boulavard,AVE,Avenue,CT,Court,DR,Drive,LN,Lane"
For Each StreetAddress In...