同类的多个数据合计

Sub classsum()
Dim i, j As Integer
For i = 2 To 122
If Cells(i, 1).Value <> "" Then
b = i
Cells(b, 5) = Cells(b, 3)
Else
ActiveSheet.Cells(b, 5).Formula = Application.WorksheetFunction.Sum(Cells(i, 3), Cells(b, 5))
End If
Next i
End Sub