Apply AutoFilter based on selected cell in another sheet

[mana]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target(1), Range("D7:H10")) Is Nothing Then Exit Sub
    
    Worksheets("sheet2").Activate
    With ActiveSheet.Range("D6").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=Cells(Target(1).Row, "D").Value
        .AutoFilter Field:=2, Criteria1:=Cells(6, Target(1).Column).Value
    End With
    
End Sub