Copying Unique values from multiple sheets

Hi all,
I am trying to put together a report (huge report) and I'm working on it bit by bit.
I will most likely be here asking for help for awhile, I hope you guys can accomodate me.
Meantime here's what I want to do:

I have Sheets, AAA, BBB, CCC, DDD and EEE
Each sheets have identical structure (heading etc.).
On my column I contains thousands of names, What I am hoping to do is to have a macro
that will read each sheets (column I) and identify the unique values.
These values should be copied and pasted at Sheet XXX starting from Cell B9 all the way down.

Appreciate any help. Thanks so much.

Try this code

Please Login or Register  to view this content.

Search the forum for Scripting.Dictionary You'll get a lot of answers to your question.
Otherwise post an example file with some dummy data to test.

@ Yasser

Slightly shorter version.

Please Login or Register  to view this content.

Like this.

Please Login or Register  to view this content.