Resaltar filas excel 2 colores de 3 en 3

Esperemos que sea esto lo que quieres. Lo he puesto en un botón.

Private Sub CommandButton1_Click()
    Dim filas As Double
    Dim columnas As Integer
    Dim periodo As Integer
    Dim fila_origen As Integer
    Dim filas_de_cada_color As Integer
    Dim i As Integer
    Dim j As Integer
    i = 1
    fila_origen = i
    periodo = -1
    'El periodo es el número de veces de un color que aparece a la vez
    filas = 12
    columnas = 5
    filas_de_cada_color = 1
    'El numero 1 significa una fila de un color otra fila del otro
    'Si es un 2 significa dos filas de un color otras dos filas de otro
    'filas = InputBox("¿Número de filas que cambian de color?")
    'columnas = InputBox("¿Número de columnas que cambian de color?")
    While (i < (filas + fila_origen))
        If (Modulo(i, filas_de_cada_color) = Modulo(fila_origen, filas_de_cada_color)) Then
            periodo = periodo + 1
            periodo = Modulo(periodo, 2) 'Como son 2 colores pongo un 2

'Si quieres poner más colores has de cambiar el 2 de arriba por otro numero mayor y añadir el color de la celda y el color de la fuente debajo
        End If
        Select Case (periodo)
            Case 0
                For j = 1 To columnas

                  'Fondo azul con letras blanca
                   Cells(i, j).Interior.Color = RGB(0, 0, 255) 'Azul marino
                   Cells(i, j).Font.Color = RGB(255, 255, 255) 'Blanco
                Next j
            Case 1
                For j = 1 To columnas

                   'Fondo amarillo con letra negra
                   Cells(i, j).Interior.Color = RGB(255, 255, 0) 'Amarillo
                   Cells(i, j).Font.Color = RGB(0, 0, 0) 'Negro
                Next j
        End Select
        i = i + 1
    Wend
End Sub
Function Modulo(Numerador As Integer, Denominador As Integer) As Integer

'Esta función calcula el módulo. Lo que es el resto. Ej

  5|_3    El resto es 2, el 1 es el cociente

  2    1

    Dim i As Double
    i = WorksheetFunction.Quotient(Numerador, Denominador)
    Modulo = Numerador - (i * Denominador)
End Function