It won't be automatic, but it can be done with a bit of tweaking....

Select Sheet2
InsertNamesDefine
Names in Workbook: Sheet2!Database
Refers to: =Sheet1!$A:$D
Click the [OK] button

Select an empty cell on Sheet2
DataFilterAdvanced filter
Check: Copy to another location
List Range: (Press the [F3] key and select Database)
Criteria Range: (Should already be there as $A$1:$A$2)
Copy to: (Should already be selected as )
Click the [OK] button

The next time you run the Advanced Filter, you only need to do this:
Select an empty cell on Sheet2
DataFilterAdvanced filter
Check: Copy to another location
List Range: (Press the [F3] key and select Database)
Click the [OK] button

If that's still too much work...we can explore VBA options.

Does that help?

Regards,
Ron


--
Ron Coderre
------------------------------------------------------------------------
Ron Coderre's Profile: http://www.excelforum.com/member.php...o&userid=21419
View this thread: http://www.excelforum.com/showthread...hreadid=499837