Extract data using Advanced Filter

[PcMax]

Hi,

I'm doing a search on 65000 rows and I wonder if there are alternatives CriteriaRange to the code posted.

Sub Test()
    Range("A2:C31").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A34:C44"), CopyToRange:=Range("A47:C47"), Unique:=False
End Sub

Here is an example of the criteria with the data to search
Attachment 170