Contact list the will automatically add a contact

[mike.richards]

i have a contact list that i would like my own userform to be filled out and then i want it to automatically find the bottom of the list and add the information from the userform and then sort all the contacts alphabetically. is this possible does anyone have any VBA code they are willing to share? thanks.

[xld]

Straight off the top

With Worksheets("Sheet1")

With .Range("A2").End(xlDown).Offset(1,0)

.Value = Textbox1.Text
.Offset(0,10.Value = Textbox2.Text
'etc
End With

.Columns("A:M").Sort Key1:=.Range("A1"), Order1:=xlAscending,Header:=xlYes
End WIth