Sub myFilter()
    ActiveSheet.UsedRange.EntireRow.Hidden = False
    Dim param As Variant
    param = Split(Cells(1, 3).Value, ",")
    
    Dim arr As Variant
    Dim y As Long
    y = Cells(Rows.Count, 2).End(xlUp).Row
    arr = Range(Cells(1, 2), Cells(y, 2 - (y = 1)))
    
    Dim v As Variant
    For y = 2 To UBound(arr, 1)
        For Each v In param
            If arr(y, 1) = v Then
                Rows(y).Hidden = True
                Exit For
            End If
        Next
    Next
End Sub