Excel - Color de fila cambie al cambiar valor

Sub PruebasFormato()

'Ubtengo el rango de los datos en la hoja

Dim Rango As Range

Set Rango = Range("A1").CurrentRegion

'Ubtengo el número de filas y columnas del rango de los datos en la hoja

Dim Nfilas As Integer

Dim Ncolumnas As Integer

Nfilas = Rango.Rows.Count

Ncolumnas = Rango.Columns.Count

'Hago un bucle para recorrer las filas de datos

Dim n As Integer

n = 2

Range(Cells(n, 1), Cells(n, Ncolumnas)).Interior.ColorIndex = -4142

For n = 3 To Nfilas

    'Poner color a filas

    If Cells(n, 2) = Cells(n - 1, 2) Then

        Range(Cells(n, 1), Cells(n, Ncolumnas)).Interior.ColorIndex = Range(Cells(n - 1, 1), Cells(n - 1, Ncolumnas)).Interior.ColorIndex

    Else

        If Cells(n - 1, 2).Interior.ColorIndex = -4142 Then

            Range(Cells(n, 1), Cells(n, Ncolumnas)).Interior.ColorIndex = 42

        Else

            Range(Cells(n, 1), Cells(n, Ncolumnas)).Interior.ColorIndex = -4142

        End If

    End If

Next

End Sub