مطلوب كود لإدراج صفوف فارغة

[أيسم إبراهيم]

السلام عليكم جميعا

حياكم الله بالخير

مطلوب من السادة الأساتذة مساعدتي بعمل كود لإدراج صفوف فارغة فوق ( أعلى ) كل صف به بيانات.

جزاكم الله كل الخير و جعله في ميزان حسناتكم

مرفق ملف به المطلوب أكثر وضوحا

__________.rar

[عبدالله باقشير]

السلام عليكم

Sub KH_ADD_ROW()
On Error Resume Next
Dim X As Integer, R As Integer, T As Integer
X = Range("A" & Rows.Count).End(xlUp).Row - 7
R = 8
Application.ScreenUpdating = False
For T = 1 To X
    Range("A" & R).EntireRow.Insert , CopyOrigin:=xlFormatFromRightOrBelow
    R = R + 2
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

تفضل المرفق

__________.rar

[محمدي عبد السميع]

ليحفطكم الله ايها العالم الكبير خبور الخير

[سمير نجار]

السلام عليكم ورحمة الله وبركاته

استاذي الكريم خبور خير

بارك الله فيك ونفعنا بعلمك

لو تتكرم علينا بشرح للكود نكون لك من الشاكرين

السلام عليكم

[cat101]

السلام عليكم ورحمة الله وبركاته

استاذي الكريم خبور خير

بارك الله فيك ونفعنا بعلمك

السلام عليكم ورحمة الله وبركاته

استاذي الكريم خبور خير

بارك الله فيك ونفعنا بعلمك