اخي الفاضلة عفاف
عدلي هذا الجزء في الكود
Sheet1.Range("a12:bu12").AutoFilter Field:=73, Criteria1:="ناجح"
الى
Sheet1.Range("a12:bu232").AutoFilter Field:=73, Criteria1:="ناجح"
ونفس الشي بالنسبة الى كود الراسبين
من
Sheet1.Range("a12:bu12").AutoFilter Field:=73, Criteria1:="راسب"
الى
Sheet1.Range("a12:bu232").AutoFilter Field:=73, Criteria1:="راسب"