Auto Filtering based on Cell Value? Code Required.

Hello,

I'm trying to obtain VMA code to auto filter based on the value of a static cell.

My data is in cells A5:AH169000 with the headings on from A4:AH4.
The cell I want to auto filter on is D2.
The column I want filtered is AF.
Sheet name = Contracts

eg. If I type "12345" into cell D2, column AF will automatically filter by "12345".

The data itself is obtained from a Access Query, which I update using a macro button (Not sure if that affect anything).

If anyone could help me out, I'd be very grateful!

Thanks romerstomper

Code work perfectly, however as this data comes from an access download the amount of rows will not always be ~169k.
How can I get around this?

We have a program which dumps the data into access and I've pulled it into excel via Data Tab > 'Get External Data' > 'From Other Sources' > 'From Microsoft Query'.

Therefore the amount of rows is going to be different each time I click the data update button.

Amazing, works perfectly.

Just one last thing, if cell D4 is empty, the table displays no data. Am I able to change this so there is no filter and all data is displayed?

Brilliant.

Thanks for your help