Need VBA Code to automatically sort on a numerical column highest to lowest

I have an Excel Sheet with columns A through J. There are 1900 rows. The Numerical data to drive the sorting is in Column J2-J1900. There are formulas in Col K-O. The cells are protected, I do NOT want the rows in K-O to sort based on Column J . I DO want the rows A2 - I1900 to sort based on Col J sort

There is a header in row A
The sheet is password protected

I need a VBA code to sort rows based on Col J highest to lowest numerical value without impacting the sort of Col K-O

below is the code provided but I can't seem to get it to work

Sub SortData()
Dim ws As Worksheet
Dim lR As Long

Set ws = ThisWorkbook.Worksheets("Sheet1") ' your sheet

ws.Unprotect

lR = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row

With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("J2:J" & lastRow), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
.SetRange Range("A1:O" & lastRow) ' assuming A as start of columns
.Header = xlYes ' assuming you have headers
.Apply
End With

ws.Protect
End Sub


Any help, suggestions or solutions will be appreciated. /

Note this code was also posted on https://www.mrexcel.com/board/thread.../#post-6151933

The line

 SetRange Range("A1:O" & lastRow)

includes K to O. Is this supposed to be the case?

OK, so wouldn't you need to change that line of code to read

.SetRange Range("A1:J" & lastRow)

instead?

Administrative Note:

jcicero57
Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not told us about this. You are required to do so. Cross-posts are allowed but you must provide a link to your posts on other sites.

Please see Forum Rule #7 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important: https://excelguru.ca/a-message-to-forum-cross-posters/

(Note: this requirement is not optional. No help to be offered until you provide a link or, for members with fewer than 10 posts, a comment telling us where else you have posted this query.)

Yes. And thank you.