Excel- Makro führt Rangordnung in falsche Richtung aus

Hallo Zusammen,

ich habe folgendes Makro, was die Aufgabe hat Blätter durchzugehen, eine Liste zu vervollständigen und diese im Anschluss nach Jahren zu ranken.

Ich habe zwei Probleme mit derm Makro:
1) Es stoppt nach dem ersten Blatt.
2) Das Ranking geht in die falsche Richtung. Aktuell vergibt es den Rang 1. für das aktuellste Jahr. Ältere Jahre erhalten die nachfolgenden Ränge. Es sollte allerdings Rang 1. für das älteste Jahr vergeben.
z.B. 1980 -Rang 1
1985 Rang 2

Kann mir jemand weiterhelfen??

Tausend Dank!

Sub hallo()
For Each sht In ActiveWorkbook.Worksheets
sht.Activate
If Not Left(sht.Name, 1) = "C" Then
a = Range("A3").Value
b = Range("C5").Value
Cells.Find(What:="Other Funds Managed by Firm", After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
c = ActiveCell.Row + 2
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.Value = a
Selection.Offset(0, 3).Value = b
Selection.Offset(0, 4).Formula = "=RANK.EQ(" & Replace(Selection.Offset(0, 3).Address, "$", "") & "," & Range(Selection.Offset(0, 3).Address, Cells(c, Selection.Offset(0, 3).Column)).Address & ")"
Selection.Offset(0, 4).Copy
Range(Selection.Offset(-1, 4), Cells(c, Selection.Offset(0, 4).Column)).Select
ActiveSheet.Paste
End
End If
Next

End Sub

RANG.GLEICH(Zahl;Bezug;[Reihenfolge])

Sub hallo()
For Each sht In ActiveWorkbook.Worksheets
sht.Activate
If Not Left(sht.Name, 1) = "C" Then  
a = Range("A3").Value  
b = Range("C5").Value  
Cells.Find(What:="Other Funds Managed by Firm", After:=ActiveCell, LookIn _  
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
c = ActiveCell.Row + 2
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.Value = a
Selection.Offset(0, 3).Value = b
Selection.Offset(0, 4).Formula = "=RANK.EQ(" & Replace(Selection.Offset(0, 3).Address, "$", "") & "," & Range(Selection.Offset(0, 3).Address, Cells(c, Selection.Offset(0, 3).Column)).Address & ")"  
Selection.Offset(0, 4).Copy
Range(Selection.Offset(-1, 4), Cells(c, Selection.Offset(0, 4).Column)).Select
ActiveSheet.Paste
End
End If
Next

End Sub

Sub hallo()
    For Each sh In ActiveWorkbook.Worksheets
        With sh
            If Left(.Name, 1) <> "C" Then  
                Set Fund = .Cells.Find("Other Funds Managed by Firm", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)  
                
                If Not Fund Is Nothing Then
                    Set r1 = Fund.Offset(2, 0)
                    Set r2 = r1.End(xlDown).Offset(1, 0)
                    
                    r2.Offset(0, 0).Value = .Range("A3").Value  
                    r2.Offset(0, 3).Value = .Range("C5").Value  
                    r1.Offset(0, 4).Formula = "=RANK.EQ(" & Replace(r1.Offset(0, 3).Address, "$", "") & "," & Range(r1.Offset(0, 3), r2.Offset(0, 3)).Address & ",1)"  
                    r1.Offset(0, 4).Copy .Range(r1.Offset(1, 4), r2.Offset(0, 4))
                End If
            End If
        End With
    Next
End Sub