Você precisaria de um evento para rastrear a mudança de cor de uma célula.
No entanto, não há nenhum desses eventos no Excel VBA.
A única maneira de usar um evento seria usar: Worksheet_SelectionChange
.
Então o código seria:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'code described in the other question
Mas isso é provavelmente um exagero, pois atualizará seu filtro toda vez que você selecionar uma nova célula.