Удаление строки, если в ячейке дата старше сегоняшнего дня - VBA

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

Доброго времени суток! Нужно макросом решить такую проблему: сканируется база данных в экселе на определенном листе, если в ячейке (опредеоенный столбец) дата старше сегодняшнего дня, то строка удаляется. Заранее благодарен

Есть а кого идеи, как решить сравнение с текущей датой?

Решение задачи: «Удаление строки, если в ячейке дата старше сегоняшнего дня»

textual
                            Листинг программы 
                        

                            Sub test1()
    Dim z, i&: z = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
   For i = UBound(z) To 1 Step -1
     If z(i, 2) > Now Then
        Rows(i).Delete
     End If
   Next
End Sub
                        