Excel 做得到在A1輸入1，B1顯示1然後換行清除1數據，A1再輸入2，B2顯示2換行?

插入一個TextBox ActiveX 控制項

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Cells(1, 2) = "" Then
Cells(1, 2) = TextBox1
Else
Cells([B65536].End(xlUp).Row + 1, 2) = TextBox1
End If
TextBox1 = ""
End If
End Sub