مشكل في كود ترتيب الأرقام بعد الحذف

[foular]

السلام عليكم

لقد قمت بادراج كود لزر الحذف من أجل ترتيب الأرقام الموجودة في العمود A بعد حذف بيانات أي سطر قصد المحافظة على التسلسل في الأرقام.

لكن بعد القيام بعملية الحذف يظهر وجود خطأ في الكود.

أرجو من الاخوة المساعدة في اصلاح الخلل في هذا الكود

لكم مني جزيل الشكر

Range("A4").Select
   ActiveCell.FormulaR1C1 = "1"
   Range("A5").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A4:A5").Select
    Selection.AutoFill Destination:=Range("A"), Type:=xlFillDefault

 

نموذج.xlsm

[احمد بدره]

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

تم التعديل لعله يفي بالغرض

تفضل الملف

نموذج1.xlsm

[foular]

السلام عليكم

أخي أحمد بارك الله فيك هذا هو المطلوب.

تقبل مني اسمى عبارات التقدير والاحترام.

[أحمد يوسف]

أخى الكريم foular طالما تم الحل كما تريد فيجب عليك شكر الذى قدم لك هذا الحل وأعتقد ان هذا اقل ما تقدمه له على هذه المساعدة

فلابد من الضغط له على الإعجاب وذلك كما بالصورة