Copying data from sheet 1 to sheet 2 based on value from one cell - seeking help

Can someone write me a macro which will copy required data from Sheet Stock to Counting_form when the value from E1 Counting form will be equal to Area from Stock?
I would really appreciate some help

Originally Posted by JohnTopley

Try

In A3

=IFERROR(INDEX(Stock!A$1:A$400,AGGREGATE(15,6,ROW($A$1:$A$400)/(Stock!$I$1:$I$400=Counting_Form!$G$2),ROWS($1:1))),"")

Copy across and down

G2 is Data Validation using named range "Area_List"

E1=G2

Many thanks Problem Solved