I suspect you were looking for something like this
Without the value, it's the Range that is in the dictionary, not the value of the cell
Look at the watch window in the screen shot
Option Explicit
Sub t4()
Dim dic As Object
Dim i As Long
Dim irow As Long
Worksheets("sheet1").Select
Set dic = CreateObject("scripting.dictionary")
irow = Cells(Rows.Count, 1).End(xlUp).Row
Range("f2:F7").ClearContents
For i = 2 To irow
If dic.Exists(Cells(i, 1).Value) Then
dic(Cells(i, 1).Value) = dic(Cells(i, 1).Value) + Cells(i, 2).Value
Else
dic.Add Cells(i, 1).Value, Cells(i, 2).Value
End If
Next I
irow = Cells(Rows.Count, 5).End(xlUp).Row
For i = 2 To irow
If dic.Exists(Cells(i, 5).Value) Then
Cells(i, 6).Value = dic.Item(Cells(i, 5).Value)
End If
Next I
Set dic = Nothing
End Sub
Capture.JPG