excel vba自製表單，自動登錄輸入時間

Private Sub CommandButton1_Click()

  nRow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1

  Cells(nRow, 1) = TextBox1.Text

  Cells(nRow, 2) = TextBox2.Text

  Cells(nRow, 3) = TextBox3.Text

  Cells(nRow, 4) = Time()

End Sub