Cut, paste and delete

[Daminc]

I'm trying to make a varient macro of the 'delete duplicates' theme.

My co-worker wants a record of the duplicate rows that have been deleted.
I've made some progress but I'm having difficulties in deleting the rows that have been cut/pasted.

Please Login or Register  to view this content.

The emboldened bit is just the latest variation of me experimenting with solving this problem to no avail.

I originally thought the 'currentcell.EntireRow.Delete' should be below the line ending in 'End(xlUp).Offset(1, 0))' but that didn't work.

Any advice to where I'm going wrong?

Thanks in advance

[Daminc]

This seems to work:

Please Login or Register  to view this content.

Is there any better way of doing this do you think?