Sorting on 2 Columns

[JeanBI]

I am on Excel 2010 version. How do you sort on 2 columns? The first sort will be by Column B, Ascending, then by Column G, Descending. Below is the code I have.

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort key1:=Range("B3", Range("B3").End(xlDown)), _
order1:=xlAscending, Header:=xlNo

 

[pgc01]

Hi
Welcome to the board

Using your code to select the table, try:

Sub SortTable()
Dim rTable As Range

Set rTable = Range("A3", Range("A3").End(xlToRight).End(xlDown))

rTable.Sort key1:=Range("B3"), Order1:=xlAscending, key2:=Range("G3"), Order2:=xlDescending, Header:=xlNo

End Sub

Remark: notice that if your table is surrounded by emtpy cells, as it's usual, your can select it with:

Set rTable = Range("A3").CurrentRegion