Worksheet_Change在特定限制后停止保存更改

Question

Private Sub Worksheet_Change(ByVal Target As Range)

    Const Scope = "G9:H6127" ' monitoring area

    Static oData As New Dictionary
    Dim rCells As Range
    Dim oCell
    Dim dDelta

    Set rCells = Application.Intersect(Target, Target.Parent.Range(Scope))
    If Not rCells Is Nothing Then
        For Each oCell In rCells
            With oCell
                dDelta = oData(.Address)
                    .Offset(0, 60).Value = dDelta
                    oData(.Address) = .Value
            End With
        Next
    End If

End Sub

我正在尝试记录我的工作表中的更改。我的MAIN显示器区域是G9：H69，但是我需要100读数，所以我给它的范围G9：H6127完成了100.但它没有记录G＆amp; H 3608后的任何变化。这意味着它只有50个读数。

我已经尝试了我能做的一切但不适合我。