Copy TextBox Value to a range in Excel

I have a list of names in Column A, I want to use a textbox and a commandbutton to add new names to column a. I only need to now the command to copy the value in the textbox to a range in excel

CobraLAD,

Something like this could help

Private Sub CommandButton1_Click()
    lastcel = Range("A1").End(xlDown).Address
    Range(lastcel).Offset(1, 0).Value = TextBox1.Value
End Sub

Hope this helps

Seamus