Find and Replace content of string using reference list

[sbawnh]

Hi all, I've searched with little luck, I'm new to excel and can't edit these VBA's by myself enough to solve.

I want to scan Column A for characters or strings in column B and replace them with Column C, in this case a blank.
May I have a VBA macro to scan list A2:A5000, replacing any value or string found in column B with a blank, or if I decide to rename, resource the value from Column C?

Extra description
So A2 is Keep-delete #234 and i'd like it to just say Keep
A3 is ImpactSowKeep#1111 and i'd like it just say Keep

This is to replace writing out 50 SUBSTITUTE(SUBSTITUTE, and be modular for the future! Thanks!
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Description[/TD]
[TD]Find[/TD]
[TD]Replace[/TD]
[/TR]
[TR]
[TD]Keep-delete #234[/TD]
[TD]#[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]ImpactSowKeep#1111[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]4[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]-[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]delete[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]impactsow[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]