trying to fix the code for sorting on the last column of every sheet the sorting on rows to be done at Rows 3:20 & 22:32.
Found the below code but I am unable to incorporate my desired rows in it. unable to crack how to define the rows in the below code.
image.jpg
Sub jusho()
Dim lColumn As Long
lColumn = Cells(1, Columns.Count).End(xlToLeft).Column
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(2, 1), Cells(LastRow, lColumn)).Sort key1:=Range(Cells(2, lColumn), Cells(LastRow, lColumn)), _
order1:=xlAscending, Header:=xlNo
End Sub
Bookmarks