MACRO Find Duplicates move to new worksheet

Hi,

I am looking for some code help with finding duplicates and moving them to a new spreadsheet.

I am looking for duplicates between Sheet 1 and Sheet 2 Col (A) "policy num". I would like the duplicates to be moved to a new sheet (Sheet 3).
I would like the new sheet with the duplicates to then pull the information for Columns B a ( Effective date) from Sheet 1 and Columns C and D (Add'l policy exec 1 - Add'l Policy Exec2) from Sheet 2. I would like Sheet 1 and Sheet 2 to stay intact (so no deleting the duplicates or non-duplicates).

Worksheet one (sorry about the spaces)

Policy Number Effective Date Add'l Policy Exec 1 Add'l Policy Exec 2
PP123 1/1/2010
PP124 1/2/2010
PP125 1/3/2010
zz154 2/14/2010
zz155 2/15/2010
zz156 2/16/2010
hh11 2/17/2010
hh12 2/18/2010


Worksheet 2 (sorry about the spacing) All the (Bank) should be under add'l policy exec 1 and the names are under policy exec 2

Policy Number Effective Date Add'l Policy Exec 1 Add'l Policy Exec 2
PP123 1/1/2010 Bank
PP124 1/2/2010 Kim
PP125 1/3/2010 Bank
PP126 1/4/2010
PP127 1/5/2010 Kim
PP128 1/6/2010
zz154 2/14/2010 Bank
zz155 2/15/2010 Troy
zz156 2/16/2010
zz157 2/17/2010 Bank
zz158 2/18/2010 Troy
zz159 2/19/2010