小计 VBA 问题

如何解决小计 VBA 问题

我有一个包含五列的列表 - 标题是：用户、姓氏、名字、项目、时间。列是 A - E (1-5)。

我使用了一个简单的子程序，它根据姓氏和项目将小计应用于小时数。这是宏：

Sub AddSubTotals()
'Book1
'Adds subtotals (hours) by last name,project
Worksheets("Sheet1").Activate
ActiveSheet.Activate
    Selection.Subtotal GroupBy:=2,Function:=xlSum,TotalList:=Array(5)
    Selection.Subtotal GroupBy:=4,TotalList:=Array(5)
End Sub

问题在于，当姓氏不同但项目名称相同时，由于项目/活动名称相同，小计会将两个名称相加。下面的例子：

User            LastName  FirstName   Project       Hours
Smith,John     Smith     John        Internal G&A  46
Jones,Jane     Jones     Jane        Internal G&A  0.75
                             Subtotal:Internal G&A  46.75

我需要的是 Smith 先生在 46 小时的小计，以及 Jones 女士在 0.75 小时的小计。宏读取项目/活动名称，例如内部 G&A，并将两个名称小计在一起。这可能是一个简单的修复，但我无法弄清楚。感谢您的帮助。