How to Autosort a Userform Entry - excel

Question

I have a question on how to automatically sort information as it is being submitted into a table via a userform.
I have tried the following code, but get errors. Because I'm new to Excel coding, I just can't figure out how to make this work:
Dim LR As Integer
LR = Range("A1:E1").End(xlUp).Row
Application.EnableEvents = False
Range("A1:BB" & LR).Sort Key1:=Range("A1"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.EnableEvents = True
Header Image
UserForm Image
The userform itself works perfectly fine. I'd like to sort via descending order in the date column.

Answer 1

Qualify the exact sheet and range you want to work with.
Clear the sort each time and re-apply the sort.
Get the last used range of data before setting the sort range. (The way you set LR will always be the 1st row.)
Like this:
Application.EnableEvents = False
Dim ws As Worksheet
Set ws = Sheets("Sheet1") 'change as needed
With ws
Dim LR As Long, rng As Range
LR = .Range("A" & .Rows.Count).End(xlUp).Row
Set rng = .Range("A1:BB" & LR)
With ws.Sort
With .SortFields
.Clear
.Add Key:=ws.Range("A2:A" & LR), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End With
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
Application.EnableEvents = True