VBA Code to optimize and clean data- clean out numerical/ or symbol

Hi All,
I got a question:

If i am have a data needed to be clean, and the cell is really mess up with random number and other symbol.

For example, same data of store name are like
apple 123
apple #123
123# appl
no. 123appl NY
7-11 1234
1451 7-11
first 4 need to be changed into apple
and while the last 2 need to be 7-11 or seveneleven
need to change million cells. And there are over thousands of store name.

Any suggestions?
Thanks!

There is NO simple way to do this.

Thanks Leith~

Its a typo, but it is in the data set, need to be changed into "apple".
-----
There will be over ten thousands of store names, with over thousands of different branch name, is it still work for regular expression?
Eg:
Macy's
Apple,
.....

Hello,

I'm not quite sure if this is easier or not but I have attached a spreadsheet that accomplishes what you are trying to do. In the code I have indicated how you would add the additional criteria.

Let me know if it works.

Thanks!

Thanks rvasquez!
That works!
Really appreciate!