Input box for filter

Hello

I have the following code

Dim ws As Worksheet
    AutoFilterMode = False
    For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$49").AutoFilter Field:=5, Criteria1:="<>"
    ActiveSheet.Range("$A$1:$N$49").AutoFilter Field:=2, Criteria1:="<>*480*", _
        Operator:=xlAnd
        
   Range("A2:A50").SpecialCells(xlCellTypeVisible).EntireRow.ClearContents

Basically, I want an input box to input the text 480 or some other 3 digit number

I can get the input box but I cannot make the filter to not contain the contents of the input box

Any help would be appreciated

cheers