Macro need to sort Excel 2010 windows XP

[Blas]

I need a macro that will allow me to manualy select a variable number of rows in a spreadsheet. Macro would then sort on column "B" desending & "C" ascending.
Please help
Blas

 

[Sektor]

Sub S()

    Dim i As Variant
    
    i = Application.InputBox("Enter rows amount:", "Input data", 1)
    If i = False Then Exit Sub
    
    Range("B1:B" & i).Sort Key1:=Range("B1"), Order1:=xlDescending
    Range("C1:C" & i).Sort Key1:=Range("C1"), Order1:=xlAscending

End Sub

 

[Peter_SSs]

I need a macro that will allow me to manualy select a variable number of rows in a spreadsheet. Macro would then sort on column "B" desending & "C" ascending.
Please help
Blas

Is it this? Test in a copy of your workbook.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> SortMyRows()<br>    <SPAN style="color:#00007F">With</SPAN> Selection.EntireRow<br>        .Sort Key1:=Cells(.Row, 2), Order1:=xlDescending, _<br>            Key2:=Cells(.Row, 3), Order2:=xlAscending, Header:=xlNo<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[Blas]

Thanks that did it
Blas