its not what im looking for,
i thought some script like this i found for date:

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, 6).Value = Format(Now, "yymmdd")
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub



now i have already like this:
E3 qty
F3 =SUM(G2+1)
G3 =SUM(G2+E3)

if this is the only way, ok, but i like to see something more

thank you