Оп. решил заменой названия S на саму ячейку. Спасибо всем огромнейшое, теперь не буду больше задавать тупых вопросов.
Но это не точно)
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