Yada sadece bu kodu Arama safasınının kod yerine yapıştırınz.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

    With Sheets("Veri")

        If Not Intersect([D7:M7], Target) Is Nothing Then

            [D9:P1048576].Clear

            .Range("E3:P" & .Cells(Rows.Count, "D").End(3).Row).AdvancedFilter Action:=xlFilterCopy, _

                CriteriaRange:=Range("D6:O7"), CopyToRange:=Range("D9")

        End If

    End With

Application.ScreenUpdating = True

End Sub