VBAで別シートの値をフォーム参照する方法

Question

前提・実現したいこと

シート１でフォームを開きます。
フォームではID、名前、年齢を入力して登録します。
IDは表の一番下のIDを取得して+1してフォームに出るようにしています。
下記の表を例とすると、フォームのIDでは3が出るようになってます。

ID	名前	年齢
1	山田太郎	22
2	佐藤花子	19

ここでID２の佐藤花子を削除します。
次に登録するIDを３からにしたいのですが、今の仕様だと表の一番下のID+1を取得するため２になってしまいます。
そのため、フォーム登録の書き込みをシート１とプラスでシート２におこないます。（セル値は同じ）
シート１の方ではメンバーの削除をおこなえるようにし、シート２では今まで登録した全メンバーが見れるようにします。
フォームのIDをシート２から取得することで、上記のような場合でもIDを3からにできると考えました。

しかし、シート２でIDを取得しているつもりなのですが、反映されません。

該当のソースコード

 '登録ボタンを押した時の処理'
Private Sub OkButton1_Click()
        '入力されている一番最後のセルの番号を取得'
        CellCount = Cells(8, 1).End(xlDown).Row + 1
        
        
        'IDTextBoxの値を"ID"の欄に入力'
        Cells(CellCount, 1).Value = Me.IDTextBox.Value
        Worksheets("シート2").Cells(CellCount, 1).Value = Me.IDTextBox.Value

End Sub

 '入力画面が表示されたときの処理（自動処理）'
Private Sub UserForm_Initialize()

    If Worksheets("シート2").Cells(9, 1).Value = "1" Then
        IDTextBox.Text = Worksheets("シート2").Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Value + 1
    Else
        IDTextBox.Text = 1
    End If
    
    

End Sub

Answer 1

試していないので保証はできませんが、17行目について

IDTextBox.Text = Worksheets("シート2").Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Value + 1

とありますが、最終行を取得している下記の部分は、ワークシートの指定がアクティブシートになっています。
Cells(Rows.Count, 1).End(xlUp).Row

例えば、下記のように修正してお試しください。

Dim lastRow AS Long

lastRow = Worksheets("シート2").Cells(Rows.Count, 1).End(xlUp).Row
IDTextBox.Text = Worksheets("シート2").Cells(lastRow, 1).Value + 1

Answer 2

私だけかもしれませんが、シート１のデータを消す意味が理解できませんので、
シート2の一覧のサンプルがあるとコードの検証が早いと思います。

Comments

[rotai_miju]

わかりづらくてすみません…イメージは勤怠のメンバー表なので、辞めた人のデータを削除するという意味です…

[退会済みユーザー]

通常の考え方ですと、退職年月日や退職フラグをいれて消さないのがデータベース的な
考え方になるとおもいます。。。
そのためのシート2なんだと思います・・。
コードを検証していないので机上の回答ということで気にされなくて大丈夫です。