Sub All_Succeeds()
Dim ws As Worksheet, sh As Worksheet
Dim Arr As Variant, Temp As Variant
Dim SResult As String, SResult2 As String
Dim i As Long, j As Long, p As Long
SResult = "ناجحة"
Set ws = Sheets("شيت النجاح")
Set sh = Sheets(ws.Range("Y3").Text)
Application.ScreenUpdating = False
ws.Range("A10:BR" & ws.Range("C" & Rows.Count).End(xlUp).Row + 10).ClearContents
Arr = sh.Range("A10:BQ" & sh.Range("C" & Rows.Count).End(xlUp).Row + 9).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 69) Like "*" & SResult & "*" Then
p = p + 1
For j = 1 To UBound(Arr, 2)
Temp(p, j) = Arr(i, j)
Temp(p, 1) = p
Next
End If
Next
If p > 0 Then ws.Range("A10").Resize(p, UBound(Temp, 2)).Value = Temp
Call SubjectsNames
Application.ScreenUpdating = True
End Sub