VBAで年間の資金繰り表を作成しています。

更新ボタンを押した際にループ処理で月ごとに値が入力されるようにしたいです。  
また、値が入力される式は作成済みなのでループで入力される際にCallで呼び出すようにしたいです。(式の名前：InputCalc)

支出・粗利益のなかの項目は増えることがあります。  
`i` では支出と粗利益を区別するループ、`j` ではCallで値を入力していくループで構成を考えています。  
コードの組み方がわからないので教えていただきたいです…

```

    Sub Button1_Click()
    
    With Sheets("HOME")
    
    Dim i As Integer
    Dim j As Integer
    
    For i = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
    
    End With
    
    End Sub 
    
```

[![画像の説明をここに入力](https://i.stack.imgur.com/AbGgp.png)](https://i.stack.imgur.com/AbGgp.png)
CC BY-SA 4.0
2020-07-08T02:31:31.873
68399
2020-07-08T03:45:04.833
2020-07-08T03:45:04.833
3060
39792
question
vba
VBAのループ処理書き方について
「支出」と「粗利益」以外も、「純利益」とかの項目が増える予定があるのですか？  
もしいらないとすると、iのループは2回でよいということになりますよね。  
もしいるとすると、iのループ値を求めるために  
A列7行目移行を最終行までたどっていって、タイトル文字がある数をカウントして、iのループのカウント数を求めます。

そのループの内部で、B列7行目から下に文字の有無を探して、なくなるまでの個数をもとめて  
jのループ数を求めます。

そんなふうにしていくとよいと思いますよ。
CC BY-SA 4.0
2020-07-08T02:48:34.840
68400
2020-07-08T02:48:34.840
21047
68399
answer