paste these macros in a module (change worksheet name as needed.)



Sub auto_open()
' works when you double click a cell and press enter, not when formula result changes, or when you copy formula to range
' whenever you need to update , double click on any cell then press enter
ThisWorkbook.Worksheets("Foaie2").OnEntry = "datesubs"

End Sub

Sub datesubs()
Dim lastrow As Long

With Sheets("Foaie2")
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Cells(1, 1).Value = Cells(lastrow, 1).Value - Cells(2, 1).Value

End With
End Sub

http://www.youtube.com/watch?v=kv2WX3KB0Z0

More on my question:
if you cannot understand my text description, please watch this video.