Считывание данных в ComboBox

[grinder]

Доброго времени суток! Столкнулся с данной проблемой:
Из таблицы приведённой в файле нужно считать в комбобокс фамилии режиссеров(только фамилии). Проблема в том, что в одной ячейке указаны и имя и фамилия, а в некоторых даже меняются местами...как быть?

[doober]

Во вложении функция по распознаванию и пример использования в ячейке.В комбобокс я думаю сами сможете добавить применив функцию.Также добавте имена,которых нет в списке
Если будете проверять текст то замените в коде

Public Function FAMILIJA(rg As Range) As String
 name = Split(LTrim(rg.Text), " ", -1)

на

Public Function FAMILIJA(rg As String) As String
 name = Split(LTrim(rg), " ", -1)