Date/Time Macro Issue

I have the below which generates an email if the date in column D is in the past. I am going to alter column D so that it contains a date and a time and the column is format dd/mm/yyyy hh:mm:ss and so then I'd only want the macro to run if what is in column D is in the past.

Any help?

Sub testttt()
Dim dateRow As Integer

With ThisWorkbook.Worksheets("sheet1")

For i = 2 To 48

    If .Range("D" & i).Value < Date Then
  
    
  
   Call emailft(i)


   End If

Next i

End With

End Sub