Sub Compare_Two_Data_Sets()
Dim fc As Integer, fr As Integer
fc = 1
fr = 2
Dim lr As Integer
lr = Range(Cells(fr, fc), Cells(fr, fc).End(xlDown)).Rows.Count
Dim sc As Integer, sr As Integer
sc = 2: sr = 2
slr = Range(Cells(sr, sc), Cells(sr, sc).End(xlDown)).Rows.Count
For i = fr To lr
If Cells(sr, sc) <> Cells(fr, fc) Then
Cells(fr, fc).Interior.ColorIndex = 3
End If
fr = fr + 1
sr = sr + 1
Next
End Sub

Private Sub CommandButton1_Click()

Dim fc As Integer, fr As Integer
fc = 1
fr = 1
Dim lr As Integer
lr = Range(Cells(fr, fc), Cells(fr, fc).End(xlDown)).Rows.Count

Dim sc As Integer, sr As Integer
sc = 3: sr = 1

slr = Range(Cells(sr, sc), Cells(sr, sc).End(xlDown)).Rows.Count

For i = fr To lr

If Cells(fr, fc) <> Cells(sr, sc) Then
Cells(sr, sc).Interior.ColorIndex = 3
End If
fr = fr + 1
sr = sr + 1
Next

End Sub