» Макрос Excel

Очень нужно доделать макрос в экселе.
Задача:
Есть журнал. В нем есть графа даты, графа номера, графа имени и название.
Нужно, чтобы выводились (или в новом документе или в новом окне или в новом листе) данные вписанные месяц назад. Т.е. 30 дней.

Вот что получилось:
sub CreateReport ()
dim WS as Worksheet
dim WS1 as worksheet
set WS = ActiveSheet
Worksheets.Add
set WS1 = Activesheet
rownum=2

D1 = DateSerial(2006,6,30)
D2 = DateSerial(2006,8,1)

for I = 2 to WS.Range("A65536").End(xlUp).Row
if WS.Cells(I,1).Value > D1 and WS.Cells(I,1).Value < D2 then
WS1.Cells(rownum,1).Value = WS.Cells(I,1).Value
WS1.Cells(rownum,2).Value = WS.Cells(I,2).Value
WS1.Cells(rownum,3).Value = WS.Cells(I,3).Value
WS1.Cells(rownum,4).Value = WS.Cells(I,4).Value
rownum=rownum+1
end if
next

end sub

Все бы хорошо НО... Но мне надо сделать так чтоб дату вписывать не вручную, а она автоматически отсчитывалась от сегодняшней даты. Т.е. датыкогда будут работать с журналом. Ну и еще одна мелоч - в создаваемом листе первая колонка с датами имеет текстовый формат, как ему сразу присвоить формат даты?

Еще раз повторю что макрос очень нужен. Заранее огромное спасибо.