Question, please.

I don't quite understand this portion, did you determine the range or was that part of the filter function that determined the A1:C54, with B & C empty?

CriteriaRange:=Sheets("Sheet2").Range("A1:C54")

It seems it is optional, did you put it on sheet 2 just as a reference?

Howard

Sub AdvFilter()
Dim LRow As Long

With Sheets("Parts")
LRow = .Cells(Rows.Count, 10).End(xlUp).Row

.Range("G1:N" & LRow).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sheet2").Range("A1:C54"), _
CopyToRange:=Sheets("Sheet2").Range("F1:H1"), Unique:=False
End With
End Sub