i think they might be it....

I swap column A and B around so i have time on column A and value on Column B...this seems to work...




Private Sub Worksheet_Calculate()
Worksheet_Change Range("B1")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Application.EnableEvents = False
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A1").Value
Application.EnableEvents = True
Application.EnableEvents = False
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("B1").Value
Application.EnableEvents = True
End If
End Sub