Remove All Rows Before Date Entered

i'm trying to form a macro that allows the user to enter a date and have excel auto filter for all dates prior to (or ON and prior to if it makes it easier) that date, and delete all rows with that auto filter criteria in place. i'm working with a old auto filter macro i put together, but cant seem to get the criteria to work with, say, <7/14/2007 for example.

Attribute VB_Name = "modDeleteVal"
Sub DeleteRowByValue()
Attribute DeleteRowByValue.VB_Description = "Macro recorded 7/9/2007 by KHenzel"
Attribute DeleteRowByValue.VB_ProcData.VB_Invoke_Func = "V
14"
'
' DeleteRowByValue Macro
' Macro recorded 7/9/2007 by KHenzel
'
' Keyboard Shortcut: Ctrl+Shift+V
'

Dim rTable As Range
Dim lCol As Long
Dim vCriteria

On Error Resume Next
'Determine the table range
With Selection
If .Cells.Count > 1 Then
Set rTable = Selection
Else...