=СУММЕСЛИМН($B$2:$B$171;$B$2:$B$171;">=1";$B$2:$B$171;"<=100";$A$2:$A$171;">="&C2;$A$2:$A$171;"<="&КОНМЕСЯЦА(C2;0))

=СЧЁТЕСЛИМН($B$2:$B$171;"<>";$A$2:$A$171;">="&C2;$A$2:$A$171;"<="&КОНМЕСЯЦА(C2;0))

Sub Tablica()
Dim i As Long
Dim j As Long
Dim iLastRow As Long
Dim iLR As Long
Application.ScreenUpdating = False
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 iLR = Cells(Rows.Count, "C").End(xlUp).Row
 Range("D2:D" & iLR).ClearContents
 For j = 2 To iLR
  For i = 2 To iLastRow
    If Val(Split(Cells(i, "A"), ".")(1)) = Month(Cells(j, "C")) And _
        Val(Split(Cells(i, "A"), ".")(2)) = Year(Cells(j, "C")) Then
       Cells(j, "D") = Cells(j, "D") + Cells(i, "B")
    End If
  Next
 Next
Application.ScreenUpdating = True
End Sub