Excel - cómo repintar 2 celdas si son de determinado color, sin usar formato condicional?

Hola de nuevo

Quería repintar 1 celda en 2 tablas con algún código. El formato condicional no puedo usarlo porque tengo que pegar datos sobre esas celdas y se borran.

La hoja tiene un código que saca el nº de color de la celda que se busca en la tabla pero no sé cómo decirle que cambie un color por otro.

Adjunto la hoja

Muchas gracias por la ayuda

• repintar-celda-cn-macro.rar(59,7 KB)

Hola,
Si al pegar haces pegado especial valores, no se modifica el Formato Condicional de la celda.

Por otro lado usando la macro que te posiciona en la celda, puedes cambiarle el color en ese momento.

Selection.Interior.Color = RGB(125,125,125)

Genial de nuevo Luis !!!

Subo la hoja resuelta por si le sirve a alguien más.

Mil gracias otra vez por tanta ayuda.

Un saludo

• solucionado.rar(23,2 KB)

Qué pesada soy

y se podrían combinar estas 2 líneas en una sola sin usar el Selec?

Cells(filai + Range("a4"), columnai + Range("b4")).Select
Selection.Interior.Color = RGB(0, 255, 125)

Intenté así pero no funciona:
Cells(filai + Range("a4"), columnai + Range("b4")).Interior.Color = RGB(0, 255, 125)

Es que le metí más código a la hoja que interfiere y me pinta otra celda activa que está fuera de las tablas