Sub Auto_open()
     If Cells(2, 5) = Date Then
        Cells(2, 2) = Cells(2, 2) + Cells(2, 3)
        Cells(2, 3) = 0
     End If
End Sub

Sub Auto_open()
      Dim i&
      For i=2 to Range("A" & Rows.Count).End(xlUp).Row
        If Cells(2, 5) = Date Then
           Cells(2, 2) = Cells(2, 2) + Cells(2, 3)
           Cells(2, 3) = 0
        End If
     Next
End Sub

Sub Кнопка2_Щелчок()

'Запускаем цикл
        
     '1. объявить переменные
      Dim Строка As Integer
      Dim КоличествоСтрок As Integer
            
         '2. Определить количество строк в диапазоне
          КоличествоСтрок = Application.CountA(Range(Cells(2, 2), Cells(32000, 2))) + 1
          Строка = 2
            
         'В диапазоне от 2-ой до последней строк выполнять такие простые действия:
          For Строка = 2 To КоличествоСтрок

'Простые действия, только номер строки забитый руками меняем на заданный циклом:

If Cells(Строка, 5) = Date Then
Cells(Строка, 2) = Cells(Строка, 2) + Cells(Строка, 3)
Cells(Строка, 3) = Empty
End If

         '3. И так по кругу, пока не проработан весь диапазон
          Next Строка

End Sub