Sub Copy_from_open_workbook_to_closed_one()
Dim wkb As Workbook
Dim f As String
Dim myArr As Variant, myArr2 As Variant
Dim lr As Long, lr2 As Long
Application.ScreenUpdating = 0
lr = Sheets("ورقة8").Cells(Rows.Count, 1).End(xlUp).Row
myArr = Sheets("ورقة8").Range("A2:g" & lr)
lr2 = Sheets("ورقة9").Cells(Rows.Count, 1).End(xlUp).Row
myArr2 = Sheets("ورقة9").Range("A2:K" & lr2)
f = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, Application.PathSeparator) - 1) & "\" & "النتائج.xlsx"
Set wkb = Workbooks.Open(f)
wkb.Sheets("ورقة8").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(UBound(myArr, 1), UBound(myArr, 2)).Value = myArr
wkb.Sheets("ورقة9").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(UBound(myArr2, 1), UBound(myArr2, 2)).Value = myArr2
wkb.Close SaveChanges:=True
Application.ScreenUpdating = 1
End Sub