vba sort loop requires rank - vba

Question

I have a spreadsheet that has student test scores  from each week.It has 5 fields,name(column A),year(column B),level(column C),week(columnD) and score(ColE).Each student have their own block on the sheet and each block of rows is seperated by and empty row.The blocks of rows will vary in size.(please see below).
I have code that will order the score(column E) from highest to lowest,(see before sort and after sort)
What I would like to do is to insert another column between the week column and the score column that gives the position of each score after the sort,and it would appear as it is in Fig 3 below .I think it would require some sort of RANK procedure and a loop.Notice also that some times the scores by a student for certain weeks can be the same so then there will be a joint top(or second or third etc)as with John Ellis joint 4th with two sets of 54 and phil simm who has a joint 1st and 4th.
Hope this makes sense.Any help much appreciated
At the bottom the spreadshhet figures I have also placed the code that I used for looping and sorting column E the score column.
BEFORE SORT(Fig1)
name year level week score
jill evans 5 2 10 56
jill evans 5 2 11 49
jill evans 5 2 12 77
jill evans 5 2 13 84
empty empty empty empty empty
john ellis 3 4 10 45
john ellis 3 4 11 54
john ellis 3 4 12 54
john ellis 3 4 13 29
john ellis 3 4 14 66
empty empty empty empty empty
phil simm 4 6 10 89
phil simm 4 6 11 76
phil simm 4 6 12 41
phil simm 4 6 13 41
phil simm 4 6 14 56
phil simm 4 6 15 59
phil simm 4 6 16 61
phil simm 4 6 17 61
AFTER SORT(Fig2)
name year level week score
jill evans 5 2 11 49
jill evans 5 2 10 56
jill evans 5 2 12 77
jill evans 5 2 13 84
empty empty empty empty empty
john ellis 3 4 13 29
john ellis 3 4 10 45
john ellis 3 4 11 54
john ellis 3 4 12 54
john ellis 3 4 14 66
empty empty empty empty empty
phil simm 4 6 12 41
phil simm 4 6 13 41
phil simm 4 6 14 56
phil simm 4 6 15 59
phil simm 4 6 16 61
phil simm 4 6 17 61
phil simm 4 6 11 76
phil simm 4 6 10 89
FIG3 with the position row included between week col and score col
name year level week position score
jill evans 5 2 11 1 49
jill evans 5 2 10 2 56
jill evans 5 2 12 3 77
jill evans 5 2 13 4 84
empty empty empty empty empty empty
john ellis 3 4 13 1 29
john ellis 3 4 10 2 45
john ellis 3 4 11 3 54
john ellis 3 4 12 3 54
john ellis 3 4 14 4 66
empty empty empty empty empty empty
phil simm 4 6 12 1 41
phil simm 4 6 13 1 41
phil simm 4 6 14 2 56
phil simm 4 6 15 3 59
phil simm 4 6 16 4 61
phil simm 4 6 17 4 61
phil simm 4 6 11 5 76
phil simm 4 6 10 6 89
So the position column reflects the new position of the score after the sort.
If two scores are the same then that will be a joint position,as with John Ellis joint 4th with two sets of 54 and phil simm who has a joint 1st and 4th.
Hope this nakes sense.Any help much appreciated
Sub sortone()
Application.ScreenUpdating = False
Dim Area As Range, sr As Long, er As Long
For Each Area In Range("A2", Range("E" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Areas
With Area
sr = .Row
er = sr + .Rows.Count - 1
Range("A" & sr & ":E" & er).Sort key1:=Range("E" & sr), order1:=1
End With
Next Area
Application.ScreenUpdating = True
End Sub
many thanks

Answer 1

"RankIf" conditional rank by Subsets using SUMPRODUCT:
An alternate way to rank, kind of like if there were a RANKIF function, uses SUMPRODUCT to do conditional ranks:
Formula in D5:
=1+SUMPRODUCT((A$4:A$21=A5)*($B$4:$B$21>B5))
...the absolute/relative cells references are setup to allow the formula to be copied or filled down & right.
More Information:
Office.com : SUMPRODUCT Function (Excel)
Office.com : RANK Function (Excel)
MSDN : WorksheetFunction.Rank Method (VBA/Excel)
Office.com : Excel statistical functions: Representing ties by using RANK

Answer 2

you could try this code
Option Explicit
Sub sortone()
Dim Area As Range
Application.ScreenUpdating = False
With Range("A1", Range("A" & Rows.Count).End(xlUp))
.Columns(5).Insert
.Cells(1, 5).Value = "position"
For Each Area In .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeConstants).Areas
With Area
.Resize(, 6).Sort key1:=.Range("F1"), order1:=1
.Offset(, 4).FormulaR1C1 = "=RANK(RC[1]," & .Offset(, 5).Resize(, 1).Address(, , xlR1C1) & ",1)"
End With
Next Area
End With
Application.ScreenUpdating = True
End Sub

Answer 3

name year level week position score
john ellis 3 4 13 1 29
phil simm 4 6 12 2 41
phil simm 4 6 13 2 41
john ellis 3 4 10 4 45
jill evans 5 2 11 5 49
john ellis 3 4 11 6 54
john ellis 3 4 12 6 54
jill evans 5 2 10 8 56
phil simm 4 6 14 8 56
phil simm 4 6 15 10 59
phil simm 4 6 16 11 61
phil simm 4 6 17 11 61
john ellis 3 4 14 13 66
phil simm 4 6 11 14 76
jill evans 5 2 12 15 77
jill evans 5 2 13 16 84
phil simm 4 6 10 17 89
empty empty empty empty #VALUE! empty
empty empty empty empty #VALUE! empty