Data Cleansing- How to fix errors in text

Hi, I have data of street names in a column, the street names contains various type errors (e.g. St for when it should be Street, and Rd for when it should be road), I know I can correct each of the cells containing the type errors using either an If formula or a Substitute formula, however, I can only correct one error at a time, for instance, first I would have to correct the "St" with "Street" error using an If formula, then copy that corrected column and pasted it into a new column, and apply another if formula to correct the "Rd" with "Road" error, is there anyway I can correct all the various type errors (St and Rd) using only onw formula which could be dragged down the entire street column, to fix all errors?

Would much appreciate the help.

Its a good formula but the only problem with it is that for the cells containing Street already in the original column, the return is "Streetreet ", Is there a way to fix this

Thanks that is great