ayuda con una macro

hola, Mauricio !

Sub HORA()
Range("A2").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "=+TEXT(+NOW(),""hh:mm"")"
Range("B2").Select
End Sub
... inserto la hora inicial en una celda
... al... insertar la fecha final me pone la misma hora en la celda anterior y tambien en la actual.
... para que no suceda eso?, ademas que se pueda insertar en cualquier celda.

-> en lugar de 'depositar una formula' [por codigo] en la 'celda activa' [ActiveCell.Formula..]
deposita el 'valor_tiempo_actual' [Time] en la celda 'donde sea necesario' -???-
-> ¿en donde quieres/necesitas poner el tiempo de inicio/fin de x_procedimiento?
-> en la celda 'C5' de la hoja activa? => Range("c5") = Time
-> en la celda 'B1' de la hoja 'abc'?? => Worksheets("abc").Range("b1") = Time
-> ¿que 'formato de salida' necesitas para el dato 'depositado'?
-> "hh:mm" => cambia la instruccion 'Time' por => Format(Time, "h:mm")
-> si am/pm -> cambia la instruccion 'Time' por => Format(Time, "h:mm a/p")

saludos,
hector.