Ted, it was self firing. I forgot to disable events. This one sould be ok, but I really dont like it. The logic is built on whether or not some Cell is empty or not. It has built in errors for which I cant predict the results of. But, It does what you asked for.
Private Sub WorkSheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Row <= 2 Then Exit Sub
Application.EnableEvents = False
If Target.Offset(-1, 0) = "" Then
Set Target = Target.End(xlUp)
Do
Target.Offset(1) = Target
Set Target = Target.Offset(1)
Loop While Target.Offset(1) <> ""
End If
Application.EnableEvents = True
End Sub
I like this one, it does what you need done, but it's logic is based on the fact that you entered a new time. It too has a built in error. IF you forget to start a new day with the new date , this will use yesterdays date. This error can be avoided with a bit more code. I would not offer it to anybody else, but I figger you know how deal with it.
And I keep running into you at midnight, which is really killing me booty sleep.
Private Sub WorkSheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Row <= 2 Then Exit Sub
Application.EnableEvents = False
If Target.Offset(0, -1) = "" Then _
Target.Offset(0, -1) = Target.Offset(-1, -1)
Application.EnableEvents = True
End Sub