Werte Vergleichen und einfügen

Werte aus Zellen des Bereiches A1:C1000 mit den Werten des Bereiches F1:H1000 vergleichen und wenn Übereinstimmung, dann Werte aus Bereich D1:D1000 nach I1:I1000 übernehmen.

Beispiel:
A20=12, B20=15, C20=18 ; D20=100
F100=12, G100=15, H100=18

Ergebnis sollte sein:
F100=12, G100=15, H100=18 , I100=100

Das ganze soll in VBA geschehen

Danke für Hilfe

Alex