is this macro correct for this operation?


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("F:F")) Is Nothing Then
With Target
If .Value < "" Then
..Offset(0, 2).Value = Cells(Target.Row - 1, 9) + 1
..Offset(0, 3).Value = Cells(Target.Row - 1, 9) + Cells(Target.Row, 6)
..Offset(0, 6).Value = Format(Now, "yymmdd")
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub