VBA. Как очистить диапазон по двум ячейкам?

Известна начальния ячейка например B2 и известно что нужно (исходя из ее номера столбца) очистить диапазон с четвертой строки по 150-ю и причем не только в столбец B, но и в трех следующих после него...
Вот прямой код...
ColMonth = DogBook.Worksheets(2).Range("Month").Find(WkMonth).Column
DogBook.Worksheets("Âîäà").Range("M4:Q150").ClearContents ' Тут нужно определять диапазон... столбцов изходя из номера найденного столбца в предыдущей строке и потом на трех листах тот же диапазон чистить!
DogBook.Worksheets("Òåïëî").Range("M4:Q150").ClearContents
DogBook.Worksheets("Ãàç").Range("M4:Q150").ClearContents

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.