VBA: Rellenando celdas vacías con condiciones.

Al hilo de este post del blog (leer), un lector planteaba la siguiente cuestión:

Hola buenas noches! Excelente post! ojalá me pueda ayudar, tengo una tabla en excel y rellene algunas celdas de color verde (estas son salteadas), quiero saber si hay forma de rellenar las que están en blanco de otro color. Muchas gracias por su atención.

La idea sería completar las celdas vacías, sin contenido y sin color de fondo verde!!.
Para ello redefiniremos la macro del post anterior, incorporándole un condicional IF THEN que controle dicha situación...

Insertamos nuestro código en un módulo estándar de nuestro proyecto de VBA desde el editor de VB:

Sub RellenaCeldasenBlanco()
Dim hoja As Worksheet
Dim UltFila As Long
Dim Rng As Range

Set hoja = Sheets("Hoja1")
With hoja
    'Encontramos la última fila con valores
    UltFila = .Range("A" & .Rows.Count).End(xlUp).Row
    'creamos el rango
    Set Rng = .Range("A1:A" & UltFila)
End With

'contador para determinar si es o no la primera celda vacía
x = 0
'recorremos el rango completo de estudio
For Each celda In Rng
    'controlamos cada celda, si está o no vacía y si además el color de fondo es el Verde
    If celda.Value = "" And celda.Interior.Color <> 5287936 Then
        'si son afirmativas ambas condiciones aumentamos el contador
        x = x + 1
        'distinguimos el caso si fuera la primera celda o siguientes
        'creamos un concatenado tipo texto con las referencias de las celdas
        If x = 1 Then
            Rng2 = celda.Address
        Else
            Rng2 = celda.Address & "," & Rng2
        End If
    End If
Next celda

'finalmente seleccionamos el rango compuesto y ejecutamos la acción de Rellenar celdas vacías
Range(Rng2).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C+1"

'liberamos las variables de objeto
Set hoja = Nothing
Set Rng = Nothing

End Sub

Tras lanzar nuestro procedimiento este es el resultado obtenido: