フォームで連番を入力する例です。
連番を入力する列は、あらかじめ、書式設定を「数値」に設定して下さい。


[ポイント]
tmpNo = Application.WorksheetFunction.Max(Sheets("単語帳").Range("B9:B65536"))
MaxNo = tmpNo + 1

B列から最大値をみつけて、その値に１を足します。

Private Sub CommandButton1_Click()



Worksheets("単語帳").Select


'B列から最大値を取得する
tmpNo = Application.WorksheetFunction.Max(Sheets("単語帳").Range("B9:B65536"))
MaxNo = tmpNo + 1


'入力する行を取得する。
myRow = Worksheets("単語帳").Cells(65536, "B").End(xlUp).Row + 1


’テキストボックスの内容を、シートに転記する
Worksheets("単語帳").Cells(myRow, "B").Value = MaxNo '連番を入力
Worksheets("単語帳").Cells(myRow, "C").Value = Date '日付を入力
Worksheets("単語帳").Cells(myRow, "D").Value = TextBox1.Text '単語を入力
Worksheets("単語帳").Cells(myRow, "E").Value = TextBox2.Text '意味を入力


TextBox1.Text = "" 'テキストボックスの内容をクリアする
TextBox2.Text = ""


End Sub