Sorting Macro

[ajbatts]

I've inherited a spreadsheet to maintain and I've little clue what I'm doing with Macros!

The table that is sorting is a league table, and to sort by average points, the div/o is above those with 0 (the div/o need to be bottom)

The results are taken from another tab via a vlookup to the setting tab (where I have used an =if(iserror) to put points at -1 for div/0

(column order)
B C D E F G H I J H AB

# Team Pl W D L F A GD PTS Average Points

1 #LoveCurlingFC 2 2 0 0 78 3 75 6 3.0
2 AC Dead People 0 0 0 0 0 0 0 0 0.0
3 AC Rotery 0 0 0 0 0 0 0 0 0.0
4 2 Bangs 1 0 0 1 1 3 -2 0 0.0
5 2 Goals 1 0 0 1 2 75 -73 0 0.0

I want to sort on H, then AB, then J. I've copied the VBA below - can anyone help?

Sub Sort()
'
' Sort Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    Range("B4:AC305").Select
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 1
    ActiveWorkbook.Worksheets("League Table").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("League Table").Sort.SortFields.Add Key:=Range( _
        "ab6:ab305"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("League Table").Sort
        .SetRange Range("B5:AC305")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[ajbatts]

That has been done