```
Sub Walkerwood()
Dim Ary1 As Variant, Ary2 As Variant
Dim r As Long, c As Long
Dim ws As Worksheet
Set ws = Sheets("pcode")
Ary1 = ws.Range("A1").CurrentRegion.Value2
Ary2 = Sheets("sheet1").Range("A1").CurrentRegion.Value2
With CreateObject("Scripting.dictionary")
For r = 1 To UBound(Ary2)
If Not IsError(Ary2(r, 1)) Then .Item(Ary2(r, 1)) = r
Next r
For r = 1 To UBound(Ary1)
If Not IsError(Ary1(r, 1)) Then
If .Exists(Ary1(r, 1)) Then
For c = 1 To UBound(Ary1, 2)
If Not IsError(Ary1(r, c)) And Not IsError(Ary2(.Item(Ary1(r, 1)), c)) Then
If Ary1(r, c) <> Ary2(.Item(Ary1(r, 1)), c) Then
ws.Cells(r, c).Interior.Color = vbRed
End If
End If
Next c
Else
ws.Rows(r).Interior.Color = vbRed
End If
End If
Next r
End With
End Sub
```