Remove the time from an Excel column of data containing date text in the format DD/MM/YY HH:MM:SS

StripTimeFromDate

Sub StripTimeFromDate()
    Dim DateTime As Long, i As Long
    DateTime = Range("D" & Rows.Count).End(xlUp).Row
    For i = 2 To DateTime
        With Range("D" & i)
            .NumberFormat = "dd/mm/yy"
            .Value = DateValue(.Value)
        End With
    Next i
End Sub