Here is a code:

Selection.AutoFilter Field:=18, Criteria1:=Sheets
("Code").Range("J2").Value

This code works fine; however, I need it to filter to
everything that does not equeal Sheets("Code").Range
("J2").Value not everything that equals it?