Formula cambia el haber cambios en la hoja

• Todas las celdas tienen la misma distancia entre boletin y boletin:
  [url=/notifications-inbox]
  [/url]
• R9 R13 R17 R21
• R36 R40 R44 R48
• R62 R66 R70 R74
• R89 R93 R97 R101

La macro estaría en un boton por boletín o un solo para todo. Aunque fuera mejor que se autoejecute supongo que podria ser por medio de cambios en la hoja.

Muchas gracias por tu tiempo Dante Amor

---

Una solución para dejar fijo el valor encontrado es utilizar una macro.

Sub Indicadores()
'Por.Dante Amor
    Dim valores As New Collection
    Dim letras As New Collection
    Set valores = Nothing
    Set letras = Nothing
    '
    Set h = Sheets("Indicadores Soc")
    celdas = Array(10, 14, 18, 22)
    For i = LBound(celdas) To UBound(celdas)
        dato = ""
        valor = Range("C" & celdas(i)) + Evaluate("=RANDBETWEEN(0,4)") / 10
        valores.Add Range("C" & celdas(i))
        Set b = h.Columns("A").Find(valor, lookat:=xlWhole)
        If Not b Is Nothing Then
            existe = False
            For j = valores.Count - 1 To 1 Step -1
                If valores(j) = Range("C" & celdas(i)) Then
                    existe = True
                    Exit For
                End If
            Next
            If existe Then dato = letras(j) Else dato = b.Offset(0, 1)
        End If
        Range("R" & celdas(i)) = dato
        letras.Add dato
    Next
    Set valores = Nothing
    Set letras = Nothing
End Sub