وعليكم السلام
يمكنك استخدام هذا الكود
Sub Copy_Paste_Below_Last_Cell()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Set wsCopy = Workbooks("v1.xlsm").Worksheets("Sheet1")
Set wsDest = Workbooks("v2.xlsm").Worksheets("Sheet1")
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "D").End(xlUp).Row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "D").End(xlUp).Offset(1).Row
wsCopy.Range("D6:G" & lCopyLastRow).Copy _
wsDest.Range("D" & lDestLastRow)
End Sub
ترحيل من ملف اكسل الى اخر.rar