You ca use a recorded macro for an Advanced Filter. The code here is slightly edited but is based on a recorded macro.
![]()
Option Explicit Sub Macro1() ' ' Macro1 Macro ' Macro recorded 27/12/2012 by TMShucks ' With Sheets("Sheet1").Columns("A:K") .AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("Sheet2").Range("A1:C2"), _ CopyToRange:=Sheets("Sheet2").Range("A5:C5"), _ Unique:=False End With End Sub
See the attached example.
Bookmarks