اخواني في المنتدى
لماذا لا تدعون المستخدم يختار عدد الصفوف و الاعمدة المطلوبة ابتذاءً من الخلية المحددة (بدل ان يدخل الى الكود و يقوم بهذا الشيء)
عبر هذا الكود
Sub CopyRowActiveCell()
Dim WS As Worksheet, SH As Worksheet, LR As Long
Set WS = Sheets("Sheet1"): Set SH = Sheets("Sheet2")
LR = SH.Cells(Rows.Count, 1).End(xlUp).Row
myrow = Application.InputBox("حدد عدد الصفوف", Default:=1)
mycol = Application.InputBox("حدد عدد الاعمدة", Default:=1)
ActiveCell.Resize(myrow, mycol).Copy
SH.Cells(LR + 1, 1).PasteSpecial (xlValues)
Application.CutCopyMode = False
End Sub