Sorting and filtering complex data (with a pivot table)

You could also create another sheet named Sheet2 and hide it

Sub AdvFilterRecordMacro()
    With Worksheets("Sheet2")
        .Range("a1:c1") = Range("i4:k4").Value
        .Range("a2:c2") = Range("i5:k5").Value
        .Range("b2") = "*" & .Range("b2")
    End With
    Range("B4:D13").AdvancedFilter _
            Action:=xlFilterCopy, _
            CriteriaRange:=Worksheets("Sheet2").Range("a1:c2"), _
            CopyToRange:=Range("I7"), Unique:=False
End Sub