Hi, marc L
many thank for the reply
your code worked fine but it just create a single "Scripting.Dictionary" so it produce unique values of whole columns instead of each one.
here is file that shows expected result
loop_to2.xlsm