在值发生变化时拉取值

Question

我认为我的问题集中在我身边，不知道如何结束If和For loops以及如何使用next。我想要做的是类似于数据透视表，但不是所有的计算都可以通过使用数据透视表找到，让我创建一个手动计算的页面。对于工作表1上Section列中的每个名称，我需要在工作表5上有1个名称实例。之后，我需要为值填充工作表1的每个范围进行几种不同的计算。其中一项计算是总和。我的主要问题是提取Section下的值，但是，如果有人可以对如何对包含每个相似部分的工作表1上的数字进行总结，我将不胜感激。我可以用它来进行其他计算。

Original Data      Original Data      What I need    What I need
Depth              Section (R)        Section (B)    Sums of the whole Selection (C)

0                  Vertical           Vertical       9001
1                  Vertical           Curve          8999
0                  Vertical           Lateral        100000
9000               Vertical 
4000               Curve 
4000               Curve  
998                Curve  
1                  Curve
50000              Lateral
0                  Lateral
40000              Lateral
10000              Lateral

'This is a copy of my code that I can't seem to get right. I haven't started attempting to sum the regions yet. I'm stuck on simply copying the Region Names.
'Calculation Sheet (5)
For j = 2 To Worksheet1.UsedRange.Rows.Count
    If Worksheet1.Cells(j + 1, "R") <> Worksheet1.Cells(j, "R") Then
        e = j
            For b = 1 To Worksheet5.UsedRange.Rows.Count
                If e <> 0 Then
                Worksheet5.Cells(b + 1, "B") = Worksheet1.Cells(j, "R")
                End If
            Exit For
            Next
    End If
Next

非常感谢所有帮助！