Hi,


The data and research needs to occur on the same sheet

Use the following code to retrieve data

Code:
For Each Numeri In arr

        Range("W2") = Numeri

        Foglio1.Range("D1:I" & RigaDn1).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Foglio1.Range( _
        "W1:W2"), CopyToRange:=Foglio1.Range("P" & NumRiga & ":R" & NumRiga), Unique:=False
Now if I wanted to create a loop with arrays to speed up the research as I could operate.