UserFormdan Excele Tarih kaydı

[bumer]

Herkese iyi Günler,
Userformdan Excel'e tarih girişi yaptığım çalışma sayfasında "Giris", "Kopya" ve "Suz" diye üç sayfam var. Tarihe göre süzme yaptığımda "Tarih" Sütununu tarih olarak görmediği için süzme işlemini yapamıyorum. Her üç sayfa da "Tarih" sütunu tarih olarak formatlanmıştır."Giriş" sayfasında hücreye çift tıklandıktan sonra hücre değeri tarih formatına dönüşmekte ve süzme işlemi yapılabilmektedir. Sormak istediğim konu, formdan kayıt yaptığımda kaydın süzme yapılacak biçimde olmasını nasıl sağlayabilirim?
Kodlar ve örnek dosyalar aşağıdadır. Herkese şimdiden teşekkür ederim. İyi Günler.

Kod: [Seç]

Private Sub Activate()
    DTPicker1.Value = Now
End Sub

Private Sub CommandButton1_Click()
Sheets("Giris").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = Format(DTPicker1.Value, "dd.mm.yyyy")
ActiveCell.Offset(0, 1).Value = TextBox1.Text
Range("A1").Select
DTPicker1.Value = Now
TextBox1.Text = Empty
End Sub

Private Sub CommandButton2_Click()
Sheets("Giris").Select
Cells.Select
    Selection.Copy
    Sheets("Kopya").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Set s1 = ThisWorkbook.Worksheets("Kopya")
    Set s2 = ThisWorkbook.Worksheets("Suz")
        s1.AutoFilterMode = False
        s2.AutoFilterMode = False
        s2.Range("A1:G5000").Delete
       
        Call s1.Range("A1").AutoFilter(1, ">=" & CLng(CDate(DTPicker2.Value)), xlAnd, "<=" & CLng(CDate(DTPicker3.Value)))
        s1.UsedRange.SpecialCells(xlCellTypeVisible).Copy
       
        s2.Paste s2.Range("A1")
        Application.CutCopyMode = False
        s1.AutoFilterMode = False
        s2.Select
End Sub