Есть колонка с Словами (бренды товаров).  
Нужно заменить навзание бренда (слово) на число (код бренда)  
Есть массив соответствий:  
AEZ 1  
DOTZ 2    
и.т.д. 50 штук  
 
Как заменить макросом?

Есть прайс. В нем есть колонка с брендами. Нужно макросом заполнить колонку со странами цифрой по бренду.  
2 R-Zone  
3 Menzari  
4 ENZO  
4 AEZ  
4 DEZENT  
7 4-Racing  
Т.е. если в ячейке с брендом ENZO или AEZ то в ячейку страны ставим цифру 4 и т. д.  
Заранее спасибо.

Нужен макрос замены букв и цифр. Я так понимаю проще и лучше это делать с помощью регулярного выражения. RegExp.  
Покажите как правильно делать замену с помощью регулярных выражений?  
Примерно так  
With Range("A1:A1000")  
Cells.Replace "1234567890", ""  
End With

Нужен макрос, заполняющий столбец одним словом.  
Формирую общий файл(прайс-лист шин) из 4х файлов екселя.  
 
Нашёл в примерах "Заполнение диапазона(массив)"  
Но может есть что-то проще? типа:  
"летняя" .Copy Destination:=BazaSht.Cells(iLastRowBaza, 1)  
Или обязательно создавать массив , заполнять его одним словом и переносить в таблицу,  
 
Спасибо.