Hi,

This is a macro in Excel 2003 version, as you can use in Excel 2007 ...
On the first page there are items to be searched, according to the criteria and where the export
now reports: Debug

Code:
Sub Macro2()
    Dim RigaDati As Long
'---I am looking for the last row to search...
    RigaDati = Sheets("Dati").Cells(Rows.Count, 2).End(xlUp).Row + 1
    
'---This code performs an advanced filter on the data sheet: "Dati"
    Sheets("Dati").Range("A2:J" & RigaDati).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("ricerche").Range( _
        "A7:J19"), CopyToRange:=Sheets("ricerche").Range("O2:X2"), Unique:=False
End Sub
Unfortunately I have available to Excel 2007 - 2010 for testing