Extract data with 2 criteria

[Admin]

Hi

Put this code in the Result sheet module (Right click on tab Result > View code and paste)

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim c   As Range, x, y
    
    If Target.Address(0, 0) = "C1" Then
        y = Range("a2:j2").Value2
        With Worksheets("AGENDA")
            Set c = .UsedRange.Rows(1).Find(What:=Me.Range("C1").Value, LookAt:=xlWhole).MergeArea.Cells(1)
            If Not c Is Nothing Then
                For Each rng In c.MergeArea.Cells(1).Offset(2).Offset(, 2).Resize(.UsedRange.Rows.Count - 2).Cells
                    x = Application.Match(rng.Value, y, 0)
                    If Not IsError(x) Then
                        Application.EnableEvents = False
                        Me.Cells(4, x) = rng.Offset(, -2).Value
                        Application.EnableEvents = True
                    End If
                Next rng
            End If
        End With
    End If
    
End Sub