Macro To Filter Dates Based On Data In Selected Cell

I have a worksheet that requires me to type a date in G1

When this date is typed IN G1 i would like the Macro to auto filter all the dates from G4 down.

So if i type date 01/01/2013 i would like the macro to filter all of all dates before this and leave all dates after this date. If it filters a date i would like the entire row to be filtered

When i delete the date in G1 i would like all the filtered rows to come back

Is this possible? I have attached a sample sheet

Thanks

Hi IMP thanks very much for this. Its a strange one and something i have never come up against. On my system and spreadsheets everything is formatted for UK dates but your macro did not work, nor did the ones i have tried to use.

How i got yours to work properly was to set the date format in your code to US format, sounds weird but it is working great now so thanks very much. Problem Solved again.