well i can try :-)
For t = 1 to d is the loop, where d is the last row with values in colD
Range("E" & t) is where found value is writed
Range("g1:g" & h).Find(Range("D" & t), LookIn:=xlValues).Row is retuning
row number where found value is
Range("H" & is forsing formula to take value in column H instead of
column G

sry my french - Denmark u no :-)

For t = 1 To d
Range("E" & t) = Range("H" & Range("g1:g" & h).Find(Range("D" & t),
LookIn:=xlValues).Row)
Next

by mistake u placed "g" ,wher we supoose to put "h" n vice
versa..........

wil u plz spend some more time to xplain this code i mean
from .......on error resume next or u cud suggest sum site or
tutorial wher from i can learn this

thnks in advance