Advanced Filter Macro With Field Not Blank

Im having real problems with this macro I have got it to work on one table, then I have made a second macro to do the same sort of thing on another table, it works now and again then it comes up with a Run-time error '1004':
the extract range has a missing or illegal field names.
At the moment I have about 5 macros as I am just starting out once Ive finished Ill simplify it into 2 macros (1 to fill to data and 1 to delete data)
When I get the error if I clear the data above and filter it again I can run the second macro (QUESTIONS!AF37)