Заменить значение ячеек ЕСЛИ совпадение

[x3emz]

Добрый день!

Есть шаблон (см. вложение).
Вижу два пути решения для своего ТЗ:
1. Дописать формулы в колонках E и F
2. Использовать какой-нибудь макрос для проверки

Задача следующего характера...
Если в колонке J есть фамилии "Фамилия1" "Фамилия2" "Фамилия3" "Фамилия4"
То в колонке Е
Слово "регистрация" у данной фамилии, например совпала "Фамилия1" заменить на слово "Прилет диспетчер"; Слово "Встреча" заменить на "Вылет диспетчер"
В колонке F для данной фамилии и операции "Прилет диспетчер" значение взять с листа Регистрация ячейка К4
В колонке F для данной фамилии и операции "Вылет диспетчер" значение взять с листа Регистрация ячейка К3

Забегая наперед... В колонке J из 4 фамилий из условия, точно всегда на выходе будет 2 фамилии совпадать, которые положу в условие.

На скриншоте во вложение показал, как хочу чтобы это потом выглядело.


Посоветуйте, пожалуйста, каким лучше путем пойти ?
Пробовал оборачивать имеющие формулы еще в условие ЕСЛИ, но что то пока к нужному результату придти не получилось. 

[x3emz]

Код Выделить Развернуть

Sub Кнопка5_Щелчок()
Dim R As Range
For Each R In Range("J2:J200")
  If R.Interior.Color = vbRed Then
    R.Interior.Pattern = xlNone
    R.Offset(, -5).Value = "Вылет диспетчер"
    R.Offset(4, -5).Value = "Прилет диспетчер"
    R.Offset(, -4).Value = Sheets("Регистрация").Range("K3")
    R.Offset(4, -4).Value = Sheets("Регистрация").Range("K4")
  End If
Next
MsgBox "Значения для диспетчеров записаны"
End Sub
Пока сделал так. Что если фамилию в колонке J выделить красным цветом, то выполнить...

Но выглядит костыльно))

[Serge 007]

выглядит костыльно

Что именно не устраивает?