Sub Macro2()

    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$221337").AutoFilter Field:=3, Criteria1:=Sheets("Info").Range("Device_Description_1")
End Sub
does this not work?