a code line to Modify VBA to copy duplicated to next empty column.-3 sheets

Hi All,

I have a code that Mr Jindon nicely did'it for me.. (thanks Jindon)

i need a code line to modify in the code that when find duplicated string (found in 2 sheets) Copy to a next empty Column of a 3rd sheet

how code work:
The code is working Fine (excellent!), Its compare 2 given range from 2 sheets( "sheet-1" and "Page-1") and if duplicated string is found on such Ranges, with condition of a min/Max of 5 to 12, then these string are copied on a new sheet called "Intercepted".
The problem (is my mistake ) is that the small report is copied, BUT is not copy continuously to next empty column.
( as i said, is my mistake !!, Sorry )

I tried to modify my self but not success because i don't know which line delete and where to add the the new code Line.


Thank you


Best Regards

David