Apply filter and delete rows thru Messege Box

[Prabhu]

Hi,

I tried, but it is not deleting the record after the given date. i.e it is struck on the filter.

Sub MYFILTER()
Dim W1Startdate As Date
W1Startdate = InputBox("Please Enter the Start Data in DD/MM/YYYY format")
range("A2:T" & range("A1").End(xlDown).Row).AutoFilter Field:=7, Criteria1:=">" & W1Startdate
range("A3:T" & range("A2").End(xlDown).Row).SpecialCells(12).EntireRow.Delete
End Sub

Kindly help