Need a macro to arrange lottery draw by sum

[serge]

Hi everyone,

I would like to separate all my lottery draw by their sum.

I do not know macro but I know it would do the job, so I'm asking if someone can help me ?

This is for the Mega Millions game 5/56.
My spreadsheet is display like this starting in row : 10.

Column A : Draw number.
Column B : Date.
Column C,D,E,F,G : lottery numbers.
Column I : Sum.

Example : 1. 6/24/2005. 14 43 44 50 56. 207.

The smallest sum for this game would be : 1,2,3,4,5 = 15 and the Highest would be : 52,53,54,55,56 = 270.

Can the macro star arranging them from the Highest to the Smallest sum and each group to be separated by one row, starting in : I10. please. Thank you.
Serge.

 

[serge]

Anyone , Please !!!

 

[shg]

The date column implies that you are going to enter historical data. If that's true, just write a formula to sum each row and sort by that.

If you wanted to list all possible combinations and their sums, it would require 3.8M rows, which Excel does not have.

 

[serge]

shg,

Thank you for your reply.

I explain myself wrong, I do not want all possible combinations to be organize by their sum but only my draws history which are at 590 draws so far.

Thank you for the help if anyone can.
Serge.

 

[Abgar]

Hi Serge,

If i've read correctly, then the below should be what you are after...

Sub arrange()
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("I10:I" & Lastrow).Formula = "=SUM(RC[-6]:RC[-1])"
Cells.Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I10:I" & Lastrow) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A10:I" & Lastrow)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

Cheers

 

[serge]

Thank you Abgar for responding to my post,

Your code works but not exactly how I need it, due to my poor explanation I believe !!!

Your code rearrange all the data from where they are at, and without one row space between each different sum..

What I wanted, is if you can correct it, is to keep the original data where they are in their own column which are A through I, and then the macro will copy and rearrange all those data starting in column :

I10 : Draw number.
J10 : Date.
K10,L10,M10,N10,O10 : Lottery numbers.
P10 : Sum.

With one row space to separate the different sum.

Thank you in advance for helping.

Serge.