入力フォームから、データを入力する例です。

[ポイント]
⇒　データを入力する「行」を取得する
myRow = Worksheets("単語帳").Cells(65536, "B").End(xlUp).Row + 1

Private Sub CommandButton1_Click()



Worksheets("単語帳").Select


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


Worksheets("単語帳").Cells(myRow, "B").Value = TextBox1.Text '単語を入力
Worksheets("単語帳").Cells(myRow, "C").Value = TextBox2.Text '意味を入力



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




End Sub