VBA to autofilter data based on set criteria into a new sheet

[indik]

Hi all

I am trying to autofilter data into a new sheet (two new sheets based on specific values). Basically I want all information related to a list of a set of companies that have an income over $50k and are equal to or less than a internal ID of 70 into one tab. I want all information related to companies with an income over $15k and a internal ID of less than 70 into another. I have set up a different tab that has these criteria set out to filter on. I recorded the autofilter and the below code came out. I copied this but it keeps breaking on a regular basis. Could someone help make this more dynamic please?

Please Login or Register  to view this content.