hello, I need to temper this code a little (code made by Fluff)
Dim Xl As Range
Dim RngX As Range
Dim ValU As String
With CreateObject("scripting.dictionary")
For Each Xl In Sheets(1).Range("A2", Sheets(1).Range("A" & Rows.count).End(xlUp))
ValU = Xl.Value &...