VBA userformでデータを入力し、次の空の行に番号を付けます

私はVBAの初心者です。私はセルに自動番号付け（1,2,3、など）のコードを取得しようとしています（A2、 A3、A4など）を作成します。私はgoogleで探してみましたが、すべての例と回答が私の要件を満たしていません。VBA userformでデータを入力し、次の空の行に番号を付けます

現在、ワークシート上で手動で編集して番号を付ける必要があります。行の1つを削除し、リスト番号を手動で更新する場合。次のサブミットされたデータは、更新リスト番号と共に次の空の行に続きます。残りのコードはすでに入手しています。

自動番号付けのためにセル（erow、1）のコードを記述することを教えてください。前もって感謝します。ここは私のコードです：ここでは

Private Sub CB2_Click() 
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
'Cells(erow, 1) ??? to get auto numbering starting from A2 (number 1,2,3,etc) 
Cells(erow, 2) = TB1.Text 
Cells(erow, 3) = TB2.Text 
Cells(erow, 4) = TB3.Text 
Cells(erow, 5) = TB4.Text 
End Sub

は私のシートの画像です：

sheet1