VBA select several columns to the right and last row with data down, then sort A-Z

[dim4x4]

Hi!

I need to sort data in columns A to CS (there is also data in columns after CS, but it should NOT be sorted. And down to the last row with data.

There is a snippet of code I found: Rows("1:" & Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row).Select, but it selects entire row, not up to CS.

Then I want to sort this range by Column С (A-Z).

Thank you very much for your help!

 

[MARK858]

Maybe...

Sub sortit()
Dim LstRw As Long
LstRw = Columns("A:CS").Find("*", , xlValues, , xlByRows, xlPrevious).Row
Range("A1:CS" & LstRw).Sort Cells(1, "C"), 1, , , , , , 1
End Sub

 

[dim4x4]

Thank you very much, Mark!

 

[MARK858]

You're welcome