Filtering column using date format from input box | Excel forum

I am using the following code to try and filter and copy on a coulmn that has a date format in using adate value added using an input box it works for dates which are in double figues i.e 10 plus but for single figure date it returns no data in the filter I ahve tried various date formats but to no avail.

Option Explicit
Public TSNAME As String
Dim Repdate As Date



Sub CREATE2()

TSNAME = InputBox("Enter Date For New Traffic Sheet as follows DD-MM-YYYY")

Sheets.Add after:=ActiveWorkbook.Sheets(Sheets.Count)

ActiveSheet.Name = ("Traffic Sheet") & " " & TSNAME

Call copetemp

End Sub

Sub copetemp()

Application.ScreenUpdating = False
Sheets(" Traffic Sheet Template").Visible = True
Sheets(" Traffic Sheet Template").Select

Range("A1:K2").Select

Selection.Copy

Worksheets(Worksheets.Count).Select

ActiveSheet.Paste

Repdate = InputBox("Enter Collection Date")

Sheets("Data Sheet").Select

Columns("N:N").NumberFormat = "mm/dd/yyyy"
'Range("A1").Select
Range("A:W").AutoFilter field:=14, Criteria1:=Repdate


Range("N3:N" & Range("A65536").End(xlUp).Row).Select
Selection.Copy
Worksheets(Worksheets.Count).Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues