replace string and add value using vlookup

Hi

1. I want to replace supplier and customer name to their full name if their name exist in vlookup range.
2. At the same time, I want to add Activities according to these condition:

If the supplier or customer name appear on vlookup range, the Activities are system trading.
Else, Activities are trading.

See attachment for better understanding.

Like so:

Please Login or Register  to view this content.

After running the macro, look at results in column A. Since worksheet formulas can do this quite easily, the macro is simply putting the formula into column A for you.