Find Duplicates, 2 Columns, Different Worksheets

[Admin]

Hi

replace

.Range("a" & .Rows.Count).End(xlUp).Offset(1).Resize(n, UBound(k, 2)) = k

with

.Range("a" & .Rows.Count).End(xlUp).Offset(1).Resize(n, 10) = k