Sorry I am replaying late..
but you have to use helper columns..
first you have to list unique column ..
using following formula in A21..
Formula:
=index($B$2:$B$18,match(0,countif($A$20:A20,$B$2:$B$18),0))
use ctrl + shift + enter to enter the formula..
and drag it down..
you will get a unique cell list...
after that..
count the occurrence of each of the unique cell...
by using following formula in B21..
Formula:
=countif($B$2:$B$18,A21)
drag it down..
do this for both the sheet..
then use following code to move the duplicates..
sub MoveDup()
for each cell in Range("B21:B40")
if cell.value>1 then
for each cell2 in range("B2:B18")
if cell.value=cell2.value
cell2.entirerow.cut sheets("Sheet3").range("A1").offset(r,0)
application.cupcopymode=false
r=r+1
next
end if
next
end sub
Don't forget to click *
Bookmarks