=SUM(IF((Sheet2!$A$2:$A$25=A3)*(--Sheet2!$B$2:$B$25>=--B3)*(--Sheet2!$B$2:$B$25<=--C3),--Sheet2!$C$2:$C$25))

Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim List2 As Worksheet
Dim FoundCell As Range
Dim FAdr As String
   Set List2 = ThisWorkbook.Worksheets("Sheet2")
   iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("D2:D" & iLastRow) = 0
  With List2
    For i = 2 To iLastRow
      Set FoundCell = .Columns(1).Find(Cells(i, "A"), , xlValues, xlWhole)
        If Not FoundCell Is Nothing Then
          FAdr = FoundCell.Address
          Do
            If FoundCell.Offset(, 1) >= Cells(i, "B") And FoundCell.Offset(, 1) <= Cells(i, "C") Then
              Cells(i, "D") = Cells(i, "D") + FoundCell.Offset(, 2)
            End If
            Set FoundCell = .Columns(1).FindNext(FoundCell)
          Loop While FoundCell.Address <> FAdr
        End If
    Next
  End With
End Sub