excel - セル値を整数に追加する (Excel-VBA)

Question

長年のプログラミング経験 (ただし、VBA の初心者)、オンライン リファレンス、および検索エンジンの経験があるため、これを機能させることができないことに、いまだに最大限の不満を感じています。

CInt、.Range、With/End With、.Value、Cells など、考えられるすべての組み合わせを試すのに少なくとも 2 時間を費やしましたが、「sum = sum + ...」で失敗し続けます。 " ライン：

Public Sub Fill_InnerData()

    Dim GNumber As Range
    Set GNumber = Range("GenerateNumber")

    Dim Data As Range
    Set Data = Range("DATA_INNER")

    For r = 1 To Data.Rows.Count

        For c = 1 To Data.Columns.Count
    
            If Data.Cells(r, c) = "" Then
            
                If c > r Then
            
                    Data.Cells(r, c) = 0
            
                Else
                    Dim x As Integer
                    x = r - c + 1
                
                    Dim y As Integer
                    y = 2
            
                    Dim sum As Integer
                    sum = 1
                
                    For i = 1 To c
                        sum = sum + CInt(Worksheets("Data").Range(Cells(x, y)).Value)
                        y = y + 1
                    Next
                
                End If
            
            End If

        Next
    Next

End Sub

「失敗」とは、次のエラーが発生することを意味します。

実行時エラー '1004':

アプリケーション定義またはオブジェクト定義のエラー

私が試したすべての組み合わせで、言及された行でそのエラーを受け取りました。

私は何を間違っていますか？