Maybe you could filter in place, copy the visible cells, paste those visible
cells, then delete the visible rows--but not the header:

This may give you an idea:

Option Explicit
Sub ABCD()

   With Worksheets("blad1")
       .Range("a1:c21").AdvancedFilter Action:=xlFilterInPlace, _
           CriteriaRange:=Worksheets("blad2").Range("A1:C2"), Unique:=False
           
       .Range("_filterDataBase").Cells.SpecialCells(xlCellTypeVisible).Copy _
           Destination:=Worksheets("blad A").Range("a1")
           
       With .Range("_filterDataBase")
           If .Columns(1).Cells.SpecialCells(xlCellTypeVisible) _
              .Cells.Count > 1 Then
               .Resize(.Rows.Count - 1).Offset(1, 0) _
                  .Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
           End If
       End With
       
       .ShowAllData
       
   End With

End Sub

(it only does one of the filters.)