insertar un cronometro en excel

Prueba con este codigo... y se lo asignas a un boton.
Al presionar la priera vez el boton ubica el tiempo de
partida en la celda A1 y por cada vez que vuelvas a
presionar el boton toma parciales. También le adicione
dos columnas Parcial (Comparativo entre el ultimo y
penultimo tiempo) y Rank (Comparativo del ultimo tiempo y
el primero).

Option Explicit

Public BOF, COF, EOF As Long
Public BOC, COC, EOC As Long

Sub Cronometro()
BOF = 1 'Fila de Tiempo Partida
EOF = 65536 'Ultima Fila de Excel

BOC = 1 'Columna de Tiempos
COC = 2 'Columna de Parciales
EOC = 3 'Columna de Rank

If Cells(BOF, BOC).Value = "" Then
Cells(BOF, BOC).Value = Now()
Cells(BOF, BOC).NumberFormat = "h:mm:ss"
Cells(BOF, COC).Value = "Parciales"
Cells(BOF, EOC).Value = "Rank"
Else
EOF = Range(Cells(BOF, BOC), Cells(EOF, BOC).End
(xlUp)).Rows.Count
Cells(EOF + 1, BOC).Value = Now()
Cells(EOF + 1, BOC).NumberFormat = "h:mm:ss"
Cells(EOF + 1, COC).FormulaR1C1 = "=R" + Trim(Str(EOF
+ 1)) + "C" + Trim(Str(BOC)) + "-R" + Trim(Str(EOF))
+ "C" + Trim(Str(BOC))
Cells(EOF + 1, COC).NumberFormat = "[h]:mm:ss"
Cells(EOF + 1, EOC).FormulaR1C1 = "=R" + Trim(Str(EOF
+ 1)) + "C" + Trim(Str(BOC)) + "-R" + Trim(Str(BOF))
+ "C" + Trim(Str(BOC))
Cells(EOF + 1, EOC).NumberFormat = "[h]:mm:ss"
End If
End Sub

Saludos \m/

necesito insertar un cronometro en una celda de excel

para despues hacer

operaciones con el tiempo marcado por ese cronometro.
Alguien sabe como hacerlo?

.