Ecxel,VBA, Макрос, что вы думаете о макросе и как его облегчить

А как насчет алгоритма в макросе таково
Построчно рассматривается столбик С (с1,с2,с,,,, с2000)
IF с1,с2....с2000 содержит слово "Носки"
Then вырезать слово и вставить в ячейку b1,b2,,,,b2000
IF с1,с2....с2000 содержит слово "колготки"
Then вырезать слово и вставить в ячейку b1,b2,,,,b2000
....
IF с1,с2....с2000 содержит слово "ххххх"
Then вырезать слово и вставить в ячейку b1,b2,,,,b2000
Else покрасить ячейку b1,b2,,,,b2000 в красный цвет
End
и так где то 60 штук

Можно в принципе использоватьCASE тоже не плохо, но не могу найти как дать понять VBA чтобы он искал слово в ячейки и вырезал его а далее вставил ( все в экселе)

А так же чтоб он вырезал не все содержимое ячейки а лиш одно слово