Public Sub DelRow()
   Dim x As Long
   Dim r As Range
   Dim LastRow As Long
   LastRow = Cells(Rows.Count, 1).End(xlUp).Row
   For x = 2 To LastRow
      Set r = Range("$a$" & x)
      If r.Value = "" Then Exit For
      If Now >= r.Value Then
         Rows(x).Delete
         x = x - 1
      End If
   Next x
End Sub