Макрос, выполняющий заданную последовательность действий

[Daywalker]

Здравствуйте, хотел попросить помощи в написании простого макроса. Вот последовательность действий которая от него требуется:

1. Удалить строки с 1 по 5
2. Очистить содержимое строк 1, 2
3. Вписать в ячейку A1 "Дата", а в ячейку B1 дату в формате дд.мм.гггг
4. Вписать в ячейку A2 "Номер паспорта"
5. Пройти циклом с ветвлением по столбцу С до тех пор пока в ячейке будет попадаться какое либо содержимое, как только наткнется на пустую ячейку (допустим C133) То удаляет содержимое строк 133-233 (100 строк в общем для надежности)
6. заполнить ячейки T1-T133(тут конечная ячейка выбирается исходя из той которая была в пункте 5) пробелами, причем важно именно не очистить ячейки, а вставить в каждую по пробелу
7. Заполнить ячейки с А133 (опять же конечная строка берется из пункта 5) до Т133 пробелами
8. Ну и сохранить)

[EducatedFool]

Включите запись макросов, и выполните описанные действия.
Получите готовый макрос.

[Daywalker]

А как записать 5 пункт?

[gsg]

Сообщение от Daywalker

А как записать 5 пункт?

если после пустой ячейки поиск прекращается, то можно обойтись и без цикла

        Rows(Columns(3).End(xlDown).Row + 1 & ":" & Columns(3).End(xlDown).Row + 101).ClearContents

[kuklp]

Сообщение от gsg

        Rows(Columns(3).End(xlDown).Row + 1 & ":" & Columns(3).End(xlDown).Row + 101).ClearContents

Не-а.
Rows(Columns(3).End(xlDown).Row + 1 & ":" & Columns(3).End(xlDown).Row + 101).valye= " "
Вроде так автор просил...