Макрос на Excel 2007 – обработка текстовых строк

Добрый день!
Понадобился макрос на Excel (использую Excel 2007), который будет преобразовывать строки.

Пример.
Исходные данные:
001 шторы -автомобиль -автомобильный -пвх
002 занавески -автотент -пвх
Надо получить:
001 авто