Oh wow. Thank you

Could you explain this part please?

Randomize
    Sheets("Sheet2").Calculate
    Intersect(Sheets("Sheet2").UsedRange, Sheets("Sheet2").Columns("A:B")).Sort Sheets("Sheet2").Range("B1"), xlAscending, , , , , , xlNo
Does "randomize" do the randomizing by default? The Intersect() is looking for the intersection between the used range and A and B in Sheet2?