Auto Filter using Cell name

Try this...

Sub Macro2()

With Sheets("Info").Range("Device_Description_1").Cells(1)
    If .Value <> "" Then
        Range("$A$1:$N$221337").AutoFilter Field:=3, Criteria1:="=*" & .Value & "*"
    End If
End With

End Sub