Comparing data values between worksheets *resolved*

[opus]

As fas as your pseudocode, it should look like this:

For i=1 to 10
For j= 1 to 10
If ActiveWorkbook.sheets("Sheet1").Cells(i,j).Value <> ActiveWorkbook.sheets("Sheet2").Cells(i,j).Value  Then
 
ActiveWorkbook.sheets("Sheet3").Cells(i,j).Value = ActiveWorkbook.sheets("Sheet1").Cells(i,j).Value
End If
Next j
Next i

But that does not match your example!
It will put an entry in Sheet3 if Sheet1 does not match Sheet2, an entry is made into the same cell in Sheet3.
In your example Sheet3 would get entries in the row 5 and row 6!