Sort table out of sync

[ipbr21054]

Hi,
I enter values into the fields on my userform then send to my table on the worksheet.
I have just used it but the sort has messed up all the table in the it even sorted the headers.

Ive removed the sort code & added the values to the userform & sent to table.
I see it past the value at the end of the table, i then use the drop down sort arrow in column a to sort A_Z
This all worked well.
SOME INFO FOR YOU
Headers in row 3
Table is N-S then down the page

Here is the sort code that doesnt work or it did but now broken.

With ActiveSheet.Sort

With .SortFields

.Clear

.Add Key:=Range("N3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

End With

.SetRange Range("N3").CurrentRegion

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

MsgBox "DATABASE SUCCESSFULLY UPDATED", vbInformation, "GRASS INCOME NAME & ADDRESS MESSAGE"