You can try this.


Private Sub TextBox1_Change()
If TextBox1 < "" Then

Dim colA As Double
colA = Cells(Rows.Count, "A").End(xlUp).Row + 1

ActiveSheet.Range("A" & colA).Value = TextBox1.Value
TextBox1 = ""
End If
End Sub

Regards
Yngve