Auto Sort Data

Still learning VBA so please bare with me..

Trying to Create a sheet that will sort students grades based on rank and name.

Breif example of what im trying to do:

Student Test 1 Test 2 AVG Rank
Bob 81 89 85 2
Sue 91 95 95 1
Joe 79 71 75 3

I would like the sheet to sort based on rank and name in descending order while keeping the whole row for each student in tact. So in this case Sue would move up to the top with all her test scores and average. I would like to use a button to do this as well.

Here is the code I have been trying

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 2 Then
      Range("A1:E3").Sort _
       Key1:=Range("E1"), Order1:=xlAscending, _
         Key2:=Range("A1"), Order2:=xlAscending, _
         Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
         Orientation:=xlTopToBottom
     End If
   
End Sub

No changes are made to the sheet after running this Macro

Thank you so much for your help!
Grades Order.xlsm