Como detener la ejecucion de un codigo en un command button por un intervalo de horas y actualizar solo fecha.

Tengo un command button con la siguiente instrucion de actualizar la fecha en la celda "A2":

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

Lo que quiero es que el codigo no se enjecute entre las 00:00:00 horas y 07:00:00 am y que en la celda "A2" solo se me actualize la fecha, porque con este codigo me actualiza Fecha y Hora "03/03/2020  8:05:07" quedando.