Macro per conteggio giri

Salve, mi servirebbe un consiglio per riuscire a individuare quante volte viene ripetuto un numero nella stessa colonna in modo da individuare in una colonna il valore numerico dei passaggi effettuati da ogni numero digitato...per capire scrivo la macro attualmente in uso per definire tempo e gap di ogni passaggio...

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-R1C4"
Rows("3:3").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A3").Select
Application.OnKey "{ENTER}", "Macro1"
End Sub

nella cella A3 si inserisce il numero e poi si esegue la macro poi basta dare invio per i numeri successivi...

Grazie