I have no idea about the data, so cannot test, but try this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "C4" And Target.Address(0, 0) <> "C6" Then Exit Sub
Me.Range("B11:F1000").ClearContents
With Sheets("Raw data")
With .Range("A2").CurrentRegion
.AutoFilter Field:=1, Criteria1:=Target.Value, Operator:=xlAnd
.AutoFilter Field:=2, Criteria1:=Range(IIf(Target.Address(0, 0) = "C4", "C6", "C4"))
.Offset(, 2).Resize(, 5).Copy Me.Range("B11")
.AutoFilter
End With
End With
End Sub
Bookmarks