search in multiple cells and sheets

Hello,

I'm trying to make vba, that takes one value(special code, up to 13 car long) from sheet4 column i1 and searches the match from sheet2 columns E:M. And when match is found, copies from sheet4 column K1 value(the same row where the code was taken from) to found match sheet(in this case sheet2) in column Q (the row must be the same where match was found)
If this maters, columns E:M may be hidden on sheet4, or E1 may be only one that's shown.

And has to loop until the end of the sheets.
By the way - i've got up to 150000 rows..

Can anybody help?