Find first empty cell in column and enter value from textbox

The code returned a value in the columns cells below the selected cell.

For example:
c
co
col
colu
colum
column

Private Sub TextBox1_Change()
Range("A2").End(xlDown).Offset(1, 0).value = TextBox1.value
ActiveCell.value = TextBox1.Text
End Sub