Как скопировать и вставить данные из столбца в другой столбец, если он выделен с помощью условного форматирования

---

сравнивая два столбца A и B я могу выделить уникальные данные в обоих столбцах используя Условное форматирование но теперь проблема заключается в том что я хочу скопировать и вставить эти выделенные данные из B в столбец A поэтому я с нетерпением жду кода VBA который может выполнить эту задачу копирования выделенных данных из столбца B и вставить их в столбец A

Нравится
А12= собака
В12= кошка
B12 выделен красным цветом с использованием условного форматирования
таким образом, если выделено красным цветом, то B12=A12
окончательный результат:
В12=кошка
А12=кот

Что я уже пробовал:

Я знаю, как копировать данные из одной ячейки в другую

Sub CopyValue()
Активный лист.Диапазон("A12").Value = ActiveSheet.Диапазон("B12")
Конец Подводной Лодки

Но как применить после выделенной части немного сложно, так как я понятия не имею о VBA.

---