Decreasing Numbers on a Specific Date

.
Another approach. Place in the ThisWorkbook module .. change date to effective change date.

Option Explicit

Private Sub Workbook_Open()
    If Date = "12/10/2018" Then
        Sheets("Sheet1").Range("G2").Value = 2
    End If
End Sub