Use multiple cell values in autofilter criteria

Plese use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting and make different than other text.

Highlight your code and click the # icon at the top of your post window.

I've fix it now for you.

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

Or this.

Range(Selection, Selection.SpecialCells(xlLastCell)).AutoFilter 10, _
    Filter([if(Sheet4!C3:K3)="","~",Sheet4!C3:K3)], "~", False), xlFilterValues

Maybe something like this.

Sub FilterRange()
    With Sheets("Sheet3")
        .Cells(1).CurrentRegion.AutoFilter 3, [Sheet5!A4]
        .Cells(1).CurrentRegion.AutoFilter 4, "~*~*~*~*"
        .Cells(1).CurrentRegion.AutoFilter 10, _
            Filter([if(Sheet4!C3:K3="","~",Sheet4!C3:K3)], "~", False), xlFilterValues
    End With
End Sub

Hard to say without seeing example file to test on.

Sorry for late response.
This works in your example file.

Sub FilterRange2()
    With Sheets("Sheet2").Cells(1).CurrentRegion
        .AutoFilter 3, [Sheet3!A5]
        .AutoFilter 4, Filter([if(Sheet3!B5:C5="","~",Sheet3!B5:C5)], "~", False), xlFilterValues
    End With
End Sub

You're welcome.