No VBA needed, just enter this formula in B2, copy down...
HTH
Code:
=IF(ISNUMBER(MATCH($B2,D2:OFFSET(INDEX($1:$1,1,MATCH(REPT("z",255),$1:$1)),ROW(A2)-1,0),0)),INDIRECT(ADDRESS(ROW(A2),MATCH($B2,D2:OFFSET(INDEX($1:$1,1,MATCH(REPT("z",255),$1:$1)),ROW(A2)-1,0),0)+4,4)),0)