Compare two excel sheets And copy the differences

[sofas]

I'm trying to compare several different columns
(Coloured in yellow) When there is any discrepancy in the mentioned columns, it is copied to the results sheet as shown in the image below. I've manually changed the background color for the differences just for clarity. I am ready to accept any proposed idea.

Dropbox

www.dropbox.com

 

[Fuji]

Why 17?

        With .Range("a10", .Range("a" & Rows.Count).End(xlUp)).Resize(, 17)

Need to be Max from [{1,2,12,13,14,18}]

 

[sofas]

Why 17?

        With .Range("a10", .Range("a" & Rows.Count).End(xlUp)).Resize(, 17)

Need to be Max from [{1,2,12,13,14,18}]

Thank you for the clarification. The modification has been completed successfully