Sub Sowas()
Dim rngData As Range, rngA As Range, rngC As Range
Dim lngIntC As Long
lngIntC = 35
Set rngData = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Offset(1).Row, 1))
Set rngData = rngData.ColumnDifferences(rngData.Cells(rngData.Cells.Count))
For Each rngA In rngData.Areas
For Each rngC In rngA.Cells
If rngC <> rngC.Offset(-1) Then
lngIntC = IIf(lngIntC = 35, 36, 35)
rngC.EntireRow.Interior.ColorIndex = lngIntC
Else
rngC.EntireRow.Interior.ColorIndex = lngIntC
End If
Next rngC
Next rngA
End Sub