ExcelVBA、Sheet1からSheet2へ特定のデータを特定の位置にコピーするシステム。

Question

前提

ExcelVBAでSheet1の特定のデータをSheet2にコピーするシステムを作成することになりました。
しかし、プログラミングの知識がほとんど皆無であり、また社内など周囲に詳しい方がおらず
困っているため、どうか助けていただきたいです。
分かりやすい説明が出来ず、申し訳ございません。

実現したいこと

まず、ExcelのSheet2のテキストボックスに「8」と入力し、「集計」ボタンを押下します。

処理は、Sheet1とSheet2の同じ案件番号に、Sheet1から取得した月累計時間データを、Sheet2の8月の列(F列)にコピーするようにしたいです。
Sheet1の月累計時間が空欄の場合はSheet2も空欄のままでコピーする予定です。

画像で説明すると、Sheet1（1枚目の画像）のB11と、Sheet2（2枚目の画像）のA5の値を比較する。
同値のため、Sheet1のC11の値をSheet2のF5にコピーする。
ような感じにします。

また、Sheet2のテキストボックスに「8」と入力したらSheet2のF列に、
「9」と入力したらSheet2のG列にコピーできるようにしたいです。

発生している問題

使用するExcelファイルは、毎月新規作成ではなく、上書きしています。
そのため、Sheet1は、案件番号が追記されたり、削除されたりします。Sheet2の案件番号の方は、追記されたら削除することはないです。
私の考えでは、ループでSheet1とSheet2の案件番号が等しかったら、Sheet1の月累計時間をSheet2の該当箇所にコピー　→　次のセルへ　というふうに考えているのですが、
Sheet1はループをしたい始まりのセル番号（画像のS1=11)が必ずしも固定値でない為、
どのように記述すればよいか見当もつきません。
例えば、月によってSheet1は、B11からやB20、B31などから始まる月があります。

Private Sub 集計btn_Click()

    '変数の宣言
    Dim S1 As Long     'Sheet1の案件番号の列をカウント
    Dim S2 As Long     'Sheet2の案件番号の列をカウント
    Dim Sheet1 As Worksheet
    Dim Sheet2 As Worksheet
    
    Set Sheet1 = Sheets("Sheet1")
    Set Sheet2 = Sheets("Sheet2")
    
    'Sheet1 D案件の採番1からD案件の最終行までループしたい
    '※毎回(B11)とは限らない。
    For S1 = 11 To Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
    
        'Sheet2 (A5:最終行) ループ
        For S2 = 5 To Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
        
            'Sheet1と同じ案件番号だったら、、、
            If Sheet1.Cells(S1, 2) = Sheet2.Cells(S2, 1) Then
            
                'Sheet2にデータを転記
                Sheet2.Cells(S2, 5) = Sheet1.Cells(S1, 3)
                
            End If
            
        Next S2
    
    Next S1
                
End Sub

補足情報（FW/ツールのバージョンなど）

Excel2016 64bit、Windows10
フォームのボタンとテキストボックスはActive Xコントロールで作成しています。

Comments

[hatena19]

画像の解像度が低すぎて判読できません。判読可能な解像度でアップロードしなおしてください。
また、このままではteratailでは非推奨の丸投げの質問となっています。
うまく行っていないものでも構いませんので、現状のコードを追記して、
どの部分が分からないのか具体的に明示してください。

[meg_]

> Sheet1の月累計時間をSheet2の該当箇所にコピー　→　次のセルへ　というふうに考えている
それで良いかと思いますが、何か問題があるのでしょうか？

> ループをしたい始まりのセル番号が固定値でない為
どのSheetのどこのことをおっしゃっていますか？

[meg_]

> Sheet1はループをしたい始まりのセル番号（画像のS1=11)が必ずしも固定値でない為、どのように記述すればよいか見当もつきません。
A列から「D案件」の文字列を検索して見つかったセルの次の行がループの開始行だと思いますが違いますでしょうか？

[green_frog]

声をかけて下さり、ありがとうございます。
> A列から「D案件」の文字列を検索して見つかったセルの次の行がループの開始行だと思いますが違いますでしょうか？
おっしゃる通りでございます。

[hatena19]

>「9」と入力したらSheet2のG列にコピーできるようにしたいです。
とのことですが、
Sheet1の画像では8月のデータしかないですが、9月のデータはどこにありますか。

[green_frog]

hatena19さん、声をかけて下さりありがとうございます。
9月のデータは、手入力でSheet1の「月累計時間」に上書きしていくかたちになります。

余談ですが、ボタン名が「集計」だと不適切かもしれませんね。ボタン名は「転記」に変更した方が
誰が見ても誤解がなくなりそうだと今思いました。

[hatena19]

だとしたら、テキストボックスに「9」と入力せずとも、Sheet1のA1セルを参照すればいいと思いますが、
それでもいいですか。(A1セルに必ず月が入力されている前提ですが。)

[green_frog]

hatena19さん、ありがとうございます。
> (A1セルに必ず月が入力されている前提ですが。)
おっしゃるとおりです。Sheet1のA1セルは必ず月が入力されるようにしていますので、
Sheet2にわざわざテキストボックスを作成する必要がないことに気づかされました。

Answer 1

Sheet1はループをしたい始まりのセル番号（画像のS1=11)が必ずしも固定値でない為、
どのように記述すればよいか見当もつきません。

とりあえず、この部分だけ。WorksheetFunction.Matchを使うといいでしょう。

WorksheetFunction.Match メソッド (Excel) | Microsoft Docs

    Dim StartRow As Long
    
    StartRow = WorksheetFunction.Match("D案件", Sheet1.Columns("A"), 0) + 1
    MsgBox StartRow   '確認用
'    For S1 = StartRow To Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
'    Next

また、Sheet2のテキストボックスに「8」と入力したらSheet2のF列に、
「9」と入力したらSheet2のG列にコピーできるようにしたいです。

Ａ1セルに月が入力されているようなので、これを使って、Matchで検索すればどうでしょう。

    Dim MonthColumn As Long
    
    MonthColumn = WorksheetFunction.Match(Sheet1.Range("A1"), Sheet2.Rows(4), 0)
    MsgBox MonthColumn

あと、案件番号もMatchを使えば、２重ループにする必要はなくなります。