Если вопрос только:
Как найти ячейки одинаковых цветов?
то сравнением цветов ячеек ))):
If Range("A1").Interior.Color = Range("B1").Interior.Color Then
...
End If
А если нужно полностью решить задачу, ну, или, только "подсказать" (процентов на 90-95%)
то это скорее в раздел Для лентяев :-).
Потому что задача вроде как и не сложная, но для ответа объемная:
сначала нужно определить алгоритм, потом написать его реализацию...