This Macro Creates a new sheet listing just your class

Sub Macro1()

    Sheets("Year Level Summary").Select
    Sheets("Year Level Summary").Copy Before:=Sheets("Year Level Summary")

    ActiveSheet.Name = "Year Level Summary (MyClass)"
    LR = Cells(Rows.Count, 2).End(xlUp).Row
    
    Range("AW9:AW" & LR).FormulaR1C1 = "=IF(ISNA(MATCH(RC[-46],'Student list'!C[-48],0)),0,1)"
    
    Range("AW9:AW" & LR).Value = Range("AW9:AW" & LR).Value
    
    Range("AW9:AW" & LR).UnMerge
    
    ActiveSheet.Sort.SortFields.Add Key:=Range("AW9:AW" & LR), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("B9:AW" & LR)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
   
    Columns("AW:AW").Select
Set Z = Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
        
    Range("A9:AW" & Z.Row - 1).Delete Shift:=xlUp
    
    Columns("AW:AW").Select

    Range("A4").Select
End Sub