help with short line of code, please

[BAS872]

The line of code that follows, which you helped me with, sorts data in A1:F15 when any one or more of the bottom rows contain no data:

Sub SortList()
Dim sList As Range
Set sList = Range(("A1"), Range("F65536").End(xlUp))
sList.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Question:
How can I modify it so that t sorts data in GO32:GT44, when any one or more of thebottom lines contain no data?

When I try the following adaptation, the value in GO32 moves yp to GO1 and no sorting gets done!!

Sub SortList()
Dim sList As Range
Set sList = Range(("GO32"), Range("F65536").End(xlUp))
sList.Sort Key1:=Range("GO32"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


End Sub

I would appreciate your help

 

[rodrenfro]

You just need to change your "set range" line.

Set sList = Range(("GO32"), Range("F65536").End(xlUp))

--- Change To ----
Set sList = Range(("GO32"), Range("GT65536").End(xlUp))

On 2002-09-28 23:37, BAS872 wrote:
The line of code that follows, which you helped me with, sorts data in A1:F15 when any one or more of the bottom rows contain no data:

Sub SortList()
Dim sList As Range
Set sList = Range(("A1"), Range("F65536").End(xlUp))
sList.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Question:
How can I modify it so that t sorts data in GO32:GT44, when any one or more of thebottom lines contain no data?

When I try the following adaptation, the value in GO32 moves yp to GO1 and no sorting gets done!!

Sub SortList()
Dim sList As Range
Set sList = Range(("GO32"), Range("F65536").End(xlUp))
sList.Sort Key1:=Range("GO32"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


End Sub

I would appreciate your help