How to copy cell value with two conditions by VBA code

Hi all

I have range data from (A:G), now I want to check data that:
1. Check data in range A2:A and copy data not dupliced to range G2:G
2. With data Cell (j) in range G2:G if match R-101 in column B wil copy cell value to H
if match R-102 in column B wil copy cell value to I
if match R-103 in column B wil copy cell value to J
if match R-104 in column B wil copy cell value to G
I have thousans row of data, so how can I do that with VBA code? i attack file that have result I want

Thanks in advanced./.

Oh sorrry, Plz move this topic to Excel Help Forum.

Cross posted https://www.mrexcel.com/forum/excel-...onditions.html