Sub Сумматор2()
    
    Found = False
    
    For i = 3 To 33

        If CDate(Cells(i, 1).Value) = Cells(1, 1).Value Then
            Found = True
            Exit For
        End If
    
    Next i
    irow = i
    If Not Found Then Exit Sub
    
    For i = 2 To 2000
    
        If IsNumeric(Worksheets(2).Cells(i, 1).Value) And Worksheets(2).Cells(i, 1).Value <> "" And IsNumeric(Worksheets(2).Cells(i, 2).Value) And Worksheets(2).Cells(i, 2).Value <> "" Then Worksheets(1).Cells(irow, 2).Value = Worksheets(1).Cells(irow, 2).Value + Worksheets(2).Cells(i, 1).Value * Worksheets(2).Cells(i, 2).Value
    
    Next i
        
End Sub