I need a macro that will search the first column of my table for a specific entry. I have seen code that I've tried to use, but because my database is arranged as a table I suspect that that is the reason it isn't working.

Example: my repetitive action is that I have to click on the column sort button every time I need to find something and then I have to manually select "Text Filters" and then "Contains" and then type what I'm looking for.

I need a button which will allow me to just type in what I'm looking for instead of having to do this action manually 50-60 times a day.

Below is an example of what did not work, but is similar to what I'm looking for.
Code:
ActiveSheet.Range("$A$1:$A$152184").AutoFilter Field:=1, Criteria1:= _
        "=*" & Range("J3").Value & "*", Operator:=xlAnd