VBA to replace text in cells/column under conditions

[smide]

Hello.

On Sheet2, column B (B3:B600) I have a list of different products. Using array formula =IFERROR(INDEX($B$3:$B$600,MATCH(0,COUNTIF($D$2:D2,$B$3:$B$600),0)),"") I listed all products in column D (D3:D30).

In column E (E3:E30) I have a similar products like those ones in column D.

Problem: all text cells in column B identical to text in cell D3 should be replaced with text from cell E3, all text cells in column B identical to text in cell D4 should be replaced with text from cell E4 and so on...

*macro should replace this only on Sheet2 (not on other sheets)

example.

Sheet2 before macro run

	A​	B​	C​	D​	E​	F​
1
2				Products to replace	Replace with
3		Apple		Apple	Apple1
4		Orange		Orange	OrangeX
5		Tomato		Tomato	Tomatoes
6		Apple
7		Tomato
8		Orange

Sheet2 after macro run

	A​	B​	C​	D​	E​	F​
1
2				Products to replace	Replace with
3		Apple1		Apple	Apple1
4		OrangeX		Orange	OrangeX
5		Tomatoes		Tomato	Tomatoes
6		Apple1
7		Tomatoes
8		OrangeX