痛恨のミスから回復(Excel VBA)

1.フォームを立ち上げる

2.フォームに入力して、登録ボタンを押すと、、、
Excelに反映!

なんやねん、いけるやんけ。onClickでフォームの値はnullにする。

Private Sub CommandButton1_Click()
 With Worksheets("Sheet1")
  lastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
  .Cells(lastRow, 1).Value = title.Text
  .Cells(lastRow, 4).Value = description.Text
  .Cells(lastRow, 5).Value = keyword.Text
  .Cells(lastRow, 7).Value = image.Text
 End With
 title.Text = ""
 description.Text = ""
 keyword.Text = ""
 image.Text = ""
End Sub