Ejecutar una macro (Pone la hora en celda seleccionada) en un rango o rangos.

Hola espero y me puedan ayudar:

Tengo una macro la cual pone la hora en una celda que seleccionas:

'Macro para poner la hora en una celda cualquiera

Sub INGRESAR_HORA_INICIAL_FINAL()
ActiveCell.Formula = Time
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Solo quiero que se ejecute en una rango de celdas, que al seleccionar otra celda fuera del rango no se ejecute o no ponga nada.

Gracias.