Sorting Challenge

gbaker · #1 06-21-2012, 08:26 AM

I have a challenge Sorting a list. Instead of the information moving to the top it falls to the bottom. All the blanks are on the top.
I have attached a worksheet showing the issue I am facing.
Can anyone help!!!
Thanks in advance.

Code:

Sub testforforum()
'
' testforforum Macro
'
'
    ActiveWindow.SmallScroll Down:=102
    Range("A1:L").Select
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add Key:=Range( _
        "A1:A15"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add Key:=Range( _
        "B1:B15"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("DATA").Sort
        .SetRange Range("A1:A15")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sorting by certain criteria	randenius	Excel	2	06-11-2012 02:18 AM
Word Challenge	jpotter2	Word	3	03-22-2011 02:07 PM
Challenge!! Need help though. (Conditional formatting)	knuckles70	Excel	2	02-05-2010 12:24 PM
CHALLENGE! Issue sorting data containing relative references on a separate tab	lax828	Excel	3	01-07-2010 11:28 AM
Challenge: Get Custom Form to Show up in Reader Pane in 2007	JohnGG	Outlook	0	08-21-2009 05:44 AM