Apply filter and delete rows thru Messege Box

[alansidman]

Try this:

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("A4:T" & range("A2").End(xlDown).Row).SpecialCells(12).EntireRow.Delete


End Sub