Macro for changing number of rows

Hello -

So I'm a little less experienced than I thought.

Below is my table.

Item	Rate 1	Rate 2
A	0.60%	0.30%
B	0.50%	0.40%
C	0.50%	0.70%
E	0.30%	0.30%
F	0.20%	0.50%

My little macro orders the rows in descending order by column C, then orders the rows in descending order by Column B. But it's hard coded to 6 rows. I don't know how to make it apply to whether I have 30 records or 3,000 records. FYI, the number of columns will be fixed at 3 columns no matter how many records I have.

Sub Ordering_Macro()
'
' Ordering_Macro Macro
'
'
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
("C2:C6"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
("B2:B6"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Any help would greatly be appreciated.

Thanks for your help in advance.

- DyingIsis

Welcome to the forum.

Please take a few minutes to read the forum rules, and then edit your post to add CODE tags.

Thanks.

EDIT: Also, please explain what you're trying to do.

Try this:

Sub OrderingMacro()
    Columns("A:C").Sort Key1:=Range("C1"), Order1:=xlDescending, _
                        Key2:=Range("B1"), Order2:=xlDescending, _
                        Header:=xlYes, Orientation:=xlTopToBottom
End Sub

shg, thank you thank you thank you!!!

I'm trying to learn how to do this kind of thing on my own, but I'm obviously way inexperienced.

Do you have any tips on reading materials or courses for someone who is trying to learn how to manipulate Macros via VBA?

try recording a macro it will give you some ideas.
the one above by shg looks like this when recorded

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 01/04/2010 by martin
'

'
    Columns("A:C").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range("C2") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End Sub

you can then change the selection bit

Columns("A:C").Select
    Selection.Sort Key1

to

Columns("A:C").Sort Key1

i also learn from here...thanks!