The problem is that you are trying to compare two ranges of the same "shape" but more than one cell. Excel VBA does not allow this..something like:
Sub test1()
Dim r1 As Range, r2 As Range
Set r1 = Range("A1:A2")
Set r2 = Range("B1:B2")
If r1.Value = r2.Value Then
MsgBox "same"
End If
End Sub
will fail.............you need an element-by-element comparison like:
Sub test2()
Dim r1 As Range, r2 As Range
Set r1 = Range("A1:A2")
Set r2 = Range("B1:B2")
Dim i As Long, b As Boolean
b = True
For i = 1 To 2
If r2(i).Value <> r1(i).Value Then
b = False
End If
Next i
If b Then
MsgBox "same"
End If
End Sub