Problema calcolatore

Buonasera ho un problema nella creazione in visual basic di un calcolatore di borsa, in una cella excel ho l'aggiornamento in real time di un valore X in una seconda cella devo stampare il valore minimo esempio

cella 1 cella 2
1.0 ----
2.0
3.0
2.0 ---- 2.0
3.0
4.0
5.0
4.0 ---- 4.0

protreste aiutarmi

vi posto il codice che ho scritto
Sub prova()
Application.OnTime Now + TimeValue("00:00:05"), "prova"

a = Cells(2, 1)
If a < Cells(5, 1) Then
Cells(5, 1) = a
Cells(5, 3) = Cells(2, 3)
End If
b = Cells(3, 1)
If Cells(6, 1) > b Then
Cells(6, 1) = b
Cells(6, 3) = Cells(2, 3)
End If

End Sub