Have a try with these macros.
To be pasted in a standard module:
Option Explicit
Public On_Off As Boolean
Public Tempo As Double
Public rowTarget As Range
Sub Clock()
DoEvents
If On_Off = True Then Exit Sub
Application.EnableEvents = False
rowTarget.Offset(0, 1).Value = Format(Now - Tempo, "hh:mm:ss")
Application.EnableEvents = True
Application.OnTime Now + TimeSerial(0, 0, 1), "Clock"
End Sub
Sub S_tart()
On_Off = False
Tempo = Now
Call Clock
End Sub
Sub S_top()
On_Off = True
End Sub
To be pasted in the Sheet1's module:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Then Exit Sub
Select Case Target.Column
Case Is = 2
Set rowTarget = Target
Target.Offset(0, 2).Select
Call S_tart
Case Is = 4
Call S_top
End Select
End Sub
Bookmarks