كود ادراج صفوف متعددة فى الاكسل Excel VBA Insert Multiple Rows

Sub InsertMultipleRows()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox("Enter number of columns to insert", "Insert Columns")
For j = 1 To i
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub

اذا كنت تريد اضافة الصفوف اعلى الصف المحدد نستبدل الكود

XlToDown بالكود التالى XlToUp