Сложный поиск слов (с условием) - VBA

Формулировка задачи:

Подскажите пожалуйста, уже несколько дней бьюсь над написанием кода, необходимо вывести значение единицы при условии что в текстовых ячейках есть определенные слова из списка которые находятся в столбце1 и нет слов в текстовой ячейки из столбца2

Правильный результат	вывод значения	текстовый столбец
		ну очень легкая задача выборки
		очень сложные задачи выборки
		к очень сложная задача невыборки
1		очень легкая задача выборки
		сложная задача выборки
		нелегкая задача выборки
1		очень надо помочь
		низина стула и прочее
1		низовая подложка чегота
1		кулон от маленького гнома и что-то еще

список

Столбец1 - с	Столбец2 - кроме
очень*	сложн* зада*
малень	привет
сверх	стадо
низ*	стул*
	*пристол
	комод

* - звездчатка, означает что может быть продолжение слова или есть последующие или перед ним символы

Решение задачи: «Сложный поиск слов (с условием)»

textual
                            Листинг программы 
                        
                            Else Sheets(1).Cells(r1.Row, 1) = ""