VBAのユーザーフォームを活用して複数データを一括入力

Question

あらかじめExcelのA列には日付が入っており
B列にはデータ入力用の空セルになっております。
C列には予測数値入力用の空セルになっています。
データ画面
|日付|現在数値|予測値|
1 |2022年6月24日|:--:|--:|
2 |2022年XX月XX日|　|　|

ユーザーフォームで
|日付|数値|
1 |2022/06/24(任意入力)|1任意入力|
2 |B=A + "m"+1|2任意入力|
3 |C=B+"m"+1|3任意入力| (データ入力ボタン)

ユーザーフォームで任意入力した
日付とデータ画面の日付がマッチした時
ユーザーフォームの数値が　データ画面のマッチした日付の数値セルに入力されるようにしたいです。
ユーザーフォームの１行目の数値はデータ画面の現在数値に
2行目以降はデータ画面の予測値に入力するやり方やコードなどご教授願います。

2022/06/27　- 追記
早速のご返答ありがとうございます。
少しイメージしにくい点もあったかと思います。
以下更新いたしましたので再度ご協力をお願いいたします。

制作シートのイメージを張り付けいたしました。
日付列とA列　B列があり

ユーザーフォーム

ラベル1の日付に2022/06/27と入力すると
ラベル２以降のボックスに　2022/07/27…ラベル10　2023/4/27と自動入力
eが数値入力ボックスです。

ラベル1の日付とマッチした数値は シートの列Aへ入力
ラベル2以降の日付とマッチしたものは列Bへ入力

データ入力は一括入力ボタンが押された時に作動させたいです。

宜しくお願い致します。

Answer 1

質問への追記を受け、修正しました。

Private Sub TextBox1_AfterUpdate()
    Dim d
    d = TextBox1.Text
    If Not IsDate(d) Then Exit Sub
    Dim i
    For i = 0 To 9
        Me.Controls(i).Text = DateAdd("m", i, d)
    Next
End Sub

Private Sub CommandButton1_Click()
    Dim i
    sheetupdate Me.Controls(0).Text, Me.Controls(10).Text, 1
    For i = 1 To 9
        sheetupdate Me.Controls(i).Text, Me.Controls(i + 10).Text, 2
    Next
End Sub

Private Sub sheetupdate(d, e, c)
    With ActiveSheet
        Dim rng As Range
        Set rng = .Columns(1).Find(DateValue(d))
        If rng Is Nothing Then Exit Sub
        rng.Offset(, c).Value = e
    End With
End Sub