Excel - Macro asignar un valor determinado a varios rangos de celdas

Muy buenas; soy nuevo y estoy empezando con las macros de excel.
Estoy intentando dar un valor determinado a otros rangos determinados al hacer doble click mediante codigo en una macro.
El problema es que cuando pongo el rango A1:A20 me rellena con el texto definido de 8:00 H todas las celdas del rango.
Además no consigo configurar varios rangos con diferentes valores determinados.
Es decir:
Al hacer doble click sobre la celda A1 dentro del rango A1:A20 me ponga las 8:00 h pero solo en esa celda y no en todo el rango
Al hacer doble click sobre otra celda de otro rango me haga lo mismo; celda B1 del rango B1:B20 me coloque la hora 9:00 h solo en esa celda.
El formato de hora también me da fallo 08:00h.
El código al que voy llegando es algo así:


Muchas gracias de antemano a todos.

Para que te ponga la hora en la celda A1 cuando haces doble click en ella y el la B1 idem de idem


Lo que no acabo de entender es que tiene que ver un rango de celdas con hacer doble click en una determinada celda.

Saludos.
\\//_

Hola Antoni; lo primero gracias por tu tiempo.
Efectivamente eso es lo que necesito pero ampliarlo a rangos, es decir;
Que si pincho en un rango de celdas como por ejemplo A1:IP1 aparezaca la hora 8:00H
si pincho en otro rango de celdas como por ejemplo A2:IP2 aparezaca la hora 9:00 H
si pincho en otro rango de celdas como por ejemplo A2:IP2 aparezaca la hora 10:00 H
Y así sucesivamente.
Todo para crear una tabla con horarios y agilizar la tarea.
te pongo un ejemplo
a1 b1 c1 d1 e1 f1
1 08:00 08:00 08:00
2 09:00 09:00 09:00 09:00
3 10:00 10:00 10:00
4 11:00 11:00 11:00

El código debiera de ser algo así, pero sin conocimiento ninguno.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("A1:f1") Then Range("A1:f1").Value = "08:00"
If Target.Address = Range("A2:f2") Then Range("a2:f2").Value = "09:00"
If Target.Address = Range("A3:f3") Then Range("a3:f3").Value = "10:00"
If Target.Address = Range("A4:f4") Then Range("a4:f4").Value = "11:00"
End Sub

Gracias nuevamente.
Un saludo