Помогите написать макрос! - VB

Формулировка задачи:

Здравствуйте! Есть одна проблема! Помогите решить!
Есть таблица, в которой столбец В, начиная с 5-й строки, заполнен некоторыми данными, нужно сделать так чтобы напротив каждой строки, в столбце С, была установлена текущая дата, если в столбце В нет данных, то и в столбце С тоже ничего нет??? Это нужно сделать в макросе.

Решение задачи: «Помогите написать макрос!»

textual
                            Листинг программы 
                        
                            Selection.SpecialCells(<font color="darkblue"><b>2</b></font>).Offset(, <font color="darkblue"><b>1</b></font>) = <font color="blue">Date</font>