Auto Sort Rows in two tables on one Sheet to show 'best performing'

[Excel_User_10k]

Hello Excel Masters!

I am trying to get the bottom table to Auto-Sort to show those with the most 'Greens' at the top for Advisers. And the same with the top table for the Stores. I have tried filtering them (as you can see in the Screenshot) but it only alters those few instead of the whole Rows. 'Sort' also doesn't work when the Sheet is Protected and it doesn't do it automatically. Tried Custom Filter and that works but it has to be done manually each time and again is not possible when the Sheet is Protected. The bottom table had the option to custom by Cell Value > Ascending Order, but the top table doesn't show this option for some reason?

All of the data here is the result of different formula's, taking the data from another Sheet(s), in case that makes a difference. And I have Row 10 upwards Frozen so that if you scroll down through advisers, the Headers and Store Table stay in place. Again, just in case this matters. (Perhaps you can give me a tip on hiding the line for the Frozen Rows too? At least whilst it is Protected anyway)

(If possible, for the bottom/Adviser table, I would like it to auto hide/filter the Rows that just have "First Name" and "Surname")

And I would like to be able to do all of those on 12 Sheets with the same layout as here but for each Month of the Year.

 

[Excel_User_10k]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("N:N")) Is Nothing Then
Range("N3").Sort Key1:=Range("N4"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

I found this VBA code, which works for the top section without affecting the bottom section, which is what I want. But I also want the same to be done for the bottom section. So I thought I could duplicate it and amend it to specify that they both only Sort two different ranges. As shown below:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("N3:N6")) Is Nothing Then
Range("N3").Sort Key1:=Range("N4"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Private Sub Worksheet_Change2(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("N11:N42")) Is Nothing Then
Range("N11").Sort Key1:=Range("N12"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Needless to say, this didn't work. Top section still Sorts, but nothing happens when I make any changes to the bottom half. Is something like this possible? Am I on the right track? If there is a way I can just control the Ranges that these codes work then they should be able to work alongside each other, right?