تعديل كود ترحيل بيانات من مصنف مغلق لمصنف أخر

Sub Test()

    Dim wb As Workbook, ws As Worksheet, sh As Worksheet, m As Long, n As Long, x As Long

    Application.ScreenUpdating = False

        Set wb = Workbooks.Open(ThisWorkbook.Path & "\Baky_1.xlsm")

        Set ws = wb.Worksheets("كشف ناجحين")

        Set sh = ThisWorkbook.Worksheets("قائمه")

        m = ws.Cells(Rows.Count, 1).End(xlUp).Row

        n = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1

        x = ws.Range("A7:C" & m).Rows.Count

        sh.Range("A" & n).Resize(x, 3).Value = ws.Range("A7").Resize(x, 3).Value

        wb.Close False

    Application.ScreenUpdating = True

End Sub