Автоматическое добавление строк.

[Rubinus]

Нужен макрос:
Если в B10:B1000 вводится "Текст1" то ни чего не происходит, а если вводится "Текст2" тогда должно выскочить окошко с вопросом типа: "Сколько строк добавить?" пользователь вводит число жмет ОКЕЙ и ниже строки должно добавиться то количетво строк которое он ввел.