Private Sub ConstantDemo()
a = 53
b = 50
For i = 2 To a Step 1
For j = 1 To b Step 1
If (Sheet1.Cells(i, j) <> Sheet1.Cells(i - 1, j)) Then
Sheet1.Cells(i, j).Interior.ColorIndex = 20
End If
Next
Next
End Sub