Hi sidxl,
try this as procedure in sheet1
Sub cond_sum()
Dim ws As Worksheet, lastrow As Long, myrange As Range, rng As Range, tot As Long
Set ws = Worksheets("sheet1")
ws.Activate
lastrow = ws.Cells(1, 1).End(xlDown).Row
For Each rng In Range("A2", Cells(lastrow, 1))
If rng <= Now() Then...