Failing to write a search and cut and paste macro

[top_dog]

I have successfully wrote a few Macros from reading the information on this forum. This one has got me beat after 3 days trying to figure it out, can someone please help me otherwise I might smash my laptop

What I am trying to do is search for an identifying code and then cut in paste it into its own sheet. The macro needs to be able to grow and shrink as some weeks there might be 7 of them item and next 5, also sometimes there will be no data for that code. I think I have wrote a code that is pretty close but I am missing something

 For nidx = 0 To UBound(storeNos)
        Cells.Find(What:=storeNos(nidx), After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
            True, SearchFormat:=True).Activate

Help will be much appreciated as I can then move on with my life lol