How do I extract Expired Date Contracts to another Worksheet using VBA?

Hi there this is my first time joining this forum.

I would like to ask about how do I extract Customer's Expired date contract and contracts that are about to be expired in 30 days into separate worksheets. I tried using the Autofilter VBA with something like "Value < Date" but it doesn't seem to work... are there any other ways to extract the expiry dates and contracts that are about to be expired within 30 days?

I have attached a sample below.

Any help is appreciated thank you.

This is a job for pivot tables:

First, convert your data range into an Excel Table. This isn't absolutely necessary, but tables have a lot of benefits: http://www.utteraccess.com/wiki/Tables_in_Excel.

Then add a helper column with the formula: (I cannot include the formula since it looks like HTML code and is blocked by the browser - see the spreadsheet.

I can't recall if Excel 2010 allows slicers to control Excel Tables, but if it does, we could stop here. In fact, you can use the filter on this column to get the result you want. Slicers just look better.

Or you can press on and develop a pivot table using the expired filed as a filter.