总结宏中的动态范围。每次客户名称更改时，如何汇总多行？

Question

我在Excel电子表格中有5000行数据，我需要对数据执行重复性任务。每次客户名称更改时我都需要换行，突出显示黄色的行，并汇总美元金额。如何创建一个宏来添加美元金额并将其移动到一列以上，以便我可以验证数据是否在表单底部正确分割。我熟悉宏，但不熟悉不断变化的范围。总和功能太糟糕了，不管怎么做？

Original data

Joes Pizza   10.00
Mikes Pizza  10.00
Mikes Pizza  10.00
Bobs Pizza   10.00
Bobs Pizza   10.00
Bobs Pizza   10.00

Formatted data

Joes Pizza   10.00
Total        10.00

Mikes Pizza  10.00
Mikes Pizza  10.00
Total        20.00

Bobs Pizza   10.00
Bobs Pizza   10.00
Bobs Pizza   10.00
Total        30.00

等等数千行数据。我需要一个excel宏来计算每次遇到换行符时的美元金额。如果在客户名称更改时放入换行符是可撤消的，则至少有一个公式使其自动汇总美元金额。

这就是我在宏观中所拥有的，它不会起作用。 GetSum lastrow = thisworkbook.sheets（＆＃34; sheet1＆＃34;）。cells（rows.count，2）.end（x1up）.row thisworkbook.sheets（＆＃34; sheet1＆＃34;）。range（＆＃34; b＆＃34;＆amp; lastrow + 1）= worksheetfunction.sum（thisworkbook.sheets（＆＃34; sheet1＆＃34;）。range （＆＃34; b2：b＆amp; lastrow））

你能看到错误吗？