Address Cleansing Using VBA

I have a spreadsheet that uses INDEX(MATCH()) to validate data fields between two databases that I maintain. I want to get rid of false positives in checking addresses by Find and Replacing common address suffixes to standardize the data in both sets. I found a list of common incorrect suffixes and their correct counterparts and scraped it off of the USPS website and into Excel. I want to manipulate a macro to search any part of the address field and find and replace the full or common suffix with the USPS standard suffix.

An example would be: Circle with Cir. I have a macro that will only find the suffix if it's alone in a field. I need it to search any part of a field. Here's what I'm working with:

Attached is a list of the suffixes I want to cleanse. Suffixes.xlsx