Just convert the formula cells as values and try the below code...
Do right click on the sheet tab and select view code and paste the below code. This code will update the Sum of data in Column-B whenever any change happens in F2 cell based on the date check.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$2" Then Exit Sub
Dim nEndRw As Long, nDateRw As Long
On Error GoTo DateMissing
nDateRw = Range("A:A").Find(Date).Row
On Error GoTo 0
nEndRw = Cells(Rows.Count, "B").End(xlUp).Row
Range(Cells(nEndRw, "B"), Cells(nDateRw, "B")).Value = Application.Sum(Range("C2:F2"))
Exit Sub
DateMissing:
MsgBox "Todays date is not present in Column-A", vbCritical, "Missing Date"
End Sub
Bookmarks