Use multiple cell values in autofilter criteria

Try this:

Sub FilterRange()
    Dim N As Long, r As Range

With Sheets("Sheet4")
    .AutoFilterMode = False
      
     N = 9 ' Number of columns in range
        ReDim ary(1 To N)
        For i = 3 To N+2 ' for columns C to K
            ary(i) = .Cells(3, i) ' 3 is row number, i is column number
        Next i
End with

With Activesheet.Range(Selection, Selection.SpecialCells(xlLastCell))

    .AutoFilter
    .AutoFilter Field:=10, Criteria1:=ary, Operator:=xlFilterValues
End With

End Sub