تفضل
Sub All()
'
' All Macro
'
Dim x as long
for x =0 to 4
Sheets("Sheet2").Select
Range("A2:B2").offset(x,0).Select
Selection.Copy
Sheets("Report").Select
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'Egypt Report Tool_v14.xlsm'!ConnectSqlServer"
Application.Run "'Egypt Report Tool_v14.xlsm'!SaveMyCover"
ActiveWindow.Close
next
End sub
===========
ملاحظة : تستطيع تغيير القيمة X الموجودة في بداية الكود وهي تعني عدد مرات التنفيذ
كما في الكود أعلاه : إذا كانت X من صفر إلى 4 فهذا يعني أنك تريد تنفيذ الكود 5 مرات
عند 0 أول مرة بداية من السطر رقم 2 يعني A2:B2
عند 1 ثاني مرة السطر 3 يعني A3:B3
عند 2 ثالث مرة السطر 4 يعني A4:B4
عند 3 رابع مرة السطر 5 يعني A5:B5
عند 4 خامس مرة السطر 6 يعني A6:B6
وهكذا ...