Alphabetize dynamic ListBox Items

I am new to the userform. I am also very new to VBA. I have created the attached spreadsheet from numerous examples on the web and have everything
working as I need it. However I don't know how to keep the ListBox items alphabetized as it is updated when a New Entry is created in the Userform and the new entry goes on the last line.

New Entry buton adds the information from the textboxes to a row in the underlying spreadsheet and adds the information as another line in the ListBox.

Can you tell me what I need to add to the code in order to keep the ListBox in alphabetical order? Thank you for your time and assistance.
All the data in the spreadsheet is ficticious.

Please Login or Register  to view this content.

Now where have I seen that code structure before.
In Module1 paste the code below over the LoadListBox() sub.
it sorts on 'Last Name' first followed by 'First Name'
torachan.

Please Login or Register  to view this content.

Use indentation points and do not use a separate module. You can overcome everything directly within the form. I have omitted all unnecessary code and then come up with a simplified example.

Please Login or Register  to view this content.

Thank you. When I pasted your code I got a Compile error Variable not defined on List = aryl.

Sub LoadListBox()
Dim sortcolumn1 As Range, sortcolumn2 As Range
Set ws1 = Sheet1
Set tbl1 = ws1.ListObjects("Table1")
If tbl1.Range(2, 1) = "" Then Exit Sub
Set sortcolumn1 = Range("Table1[Last Name]")
Set sortcolumn2 = Range("Table1[First Name]")
With tbl1.Sort
.SortFields.Clear
.SortFields.Add Key:=sortcolumn1, SortOn:=xlSortOnValues, Order:=xlAscending
.SortFields.Add Key:=sortcolumn2, SortOn:=xlSortOnValues, Order:=xlAscending
.Header = xlYes
.Apply
End With
ary1 = tbl1.DataBodyRange
With uf1.lbo1
List = ary1
ColumnCount = 12
ColumnWidths = "50,50,70,70,80,60,60,70,30,40,70,50"
End With
End Sub

See #3

Don't just pick a bad file from the internet. Without understanding anything about VBA.

When I got your recommendation. When I removed LoadListBox from module and pasted your new code in uf1, The listbox did alphabetize but when I update, change or remove it updates in the list box on the userform but it no longer updates the spreadsheet. I'm trying to find this issue now.

@Vraag, very impressive, time to heed ones own advice, in giving advice perhaps it would be beneficial if you read and understood the entire code.
There are many opinions as to correct code structure and reasons for such, the separate module contains several subs which are called several times throughout the program.
Good structure demands that you keep repetitive code to a minimum.
@cbel26, the code was checked and ran before i posted it, did you type it in, or did you copy/paste.
you have stated 'aryl' it is ary1 (last character is 'one' not 'hell')
torachan.

I want to thank you for trying to help someone that doesn't know much about VBA I did copy and paste the code. the aryl was a typo on my part in the reply. I will continue to check my work. Thanks

attached file as altered and tested - only mods are in the module as previously stated.
torachan.

@cbel26, no matter the opinions of others, code presented by helpers should be understandable and aimed at the level of knowledge perceived that the OP has.
We can all write 'one liners' that cause more bewilderment than assistance.
However I have looked through posts in this thread and the reason it is not working is the absence of a (.) 'full stop' or I believe a 'point' in the USA.
Compare my original code submission (the one between 'code tags' (as required by forum rules)) and your free text re-submission.
The offending omission is directly preceding the word List (the smallest things can be the most important)
torachan.

Thank you so much. This now works perfectly for what I need. I appreciate the time you spent on this.

@torachan,

very impressive, time to heed ones own advice, in giving advice perhaps it would be beneficial if you read and understood the entire code.
There are many opinions as to correct code structure and reasons for such, the separate module contains several subs which are called several times throughout the program.
Good structure demands that you keep repetitive code to a minimum.

108 lines of code in 1 module or 212 lines in 2 modules. What will be clearer?

Could I dare ask you to help me with one other thing in the listbox in this thread? Is there a way to add the headers in the listbox? Thank you and I apologize for my lack of knowledge. After I complete this userform I will be taking VBA classes.

Below is a go-to reference link - contains almost all you want to know about about combo/list boxes.
I have found it invaluable over the years and it gives a good analysis of the different methodology.
Headers can be incorporated by using the 'rowsource' fill method although it can become unstable (especially if you have two or more workbooks open at the same time).
Despite differing opinions using 'table' loaded 'arrays' is the most efficient as you keep the read/write to the sheet to a minimum.
When people request headers, I usually use the approach as in the attached file, on the 'Re-Order page the listbox has external scroll bars that move the header caption label in sync with list.
This app was built to the numerous requests of an OP on this site (the code has not been optomised - perhaps a challenge for someone).
The previous app is now down to 95 lines (the downside - it comes with a 200 line guide to its structure)
Bottom line - I would not by choice use 'rowsource'.
torachan.

https://www.snb-vba.eu/VBA_Fill_comb...istbox_en.html