VBA improvement on development of stock prices

[Simensg]

Hi guys. I have with assistance from you experts learnt a code that keeps track of the development of a stock price on a daily basis. The problem is that the code becomes useless when I forget to update the sheet one day. Can you please take a look and explain if I can make a code that skips dates? I have attached the sheet with the following code:

Private Sub BEREGN_Click()

i& = Sheets("SB").Cells(Rows.Count, 4).End(xlUp).Row + 1
If Sheets("SB").Cells(i, 3) = Sheets("Query7").Cells(8, 4) Then Sheets("SB").Cells(i, 4) = Sheets("Query7").Cells(7, 4) Else: Sheets("SB").Cells(i, 4) = ""

End Sub

Thanks a lot.