See if the attached is helpful. There are two approaches.
On Sheet1
1. Advanced Filter automated with VBA. A dynamic named range was created to use as the source for the filter.
VBA code for Advanced Filter
Sub Filter_Data()
Application.ScreenUpdating = False
Sheet2.Range("C9").CurrentRegion.ClearContents
Sheet1.Range("Database").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet2.Range _
("C1:I2"), CopyToRange:=Sheet2.Range("C9"), Unique:=False
Application.ScreenUpdating = True
End Sub
On Sheet2
2. Match formulas and Conditional Formatting
=IF(NOT(ISNA(MATCH($B$2,B8:B13,0))),OFFSET(INDIRECT(ADDRESS(MATCH($B$2,B8:B13,0)+7,2)),0,-1,1,1),IF(NOT(ISNA(MATCH($B$2,C8:C13,0))),
Bookmarks