You could use Data|Advanced Filter to copy data to another sheet. Automating it isn't difficult...
![]()
Sub AdvFilter() 'Assuming a data table in Sheet1 and criteria and extract ranges in Sheet2 With Worksheets("Sheet2") Worksheets("Sheet1").Range("DataTable").AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=.Range("Criteria"), _ CopyToRange:=.Range("Extract") End With End Sub
Bookmarks