VBA - copy/paste no duplicates

i need to take 6 columns from sheet 1 and paste theme in one list in sheet 2 activated with a button on sheet 2
P/S i need the list on sheet 2 to exclude duplicates.
thank you for your help.

i have done this with an array formula but i believe a macro would be simpler

hi

if you want to have just one of duplicate with no duplicate items use this code for a button in sheet 2

Please Login or Register  to view this content.

if you don't need duplicate , i mean just unique item use this code :

Please Login or Register  to view this content.

finally if you want to clear your column A in sheet 2 after each press this button
use this code after this line in above codes :

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Thank you button works fine but both codes have duplicates

dictionary keys and items are zero-based arrays, so in second last line of above code use

Resize(UBound(.items)+1).Value = ...

or, shorter, just

Resize(.count) = ...
(coz dic items default as values anyway so .Value not needed)

otherwise may miss out the 958

Hi kalak -

I have updated my post, thanks

event