مساعدة في حذف الصفوف

[Wael Hamed_1975]

برجاء المساعدة في طريق حذف الصفوف بعد اخر خلية نشطة وشكراً

MY_Book3.xlsm

[طارق محمود]

السلام عليكم
علي فرض أن البيانات موجودة بالعمود (A)
جرب هذا الكود
 

Sub Macro1()

[A9999].End(xlUp).Offset(1, 0).Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Rows.Delete Shift:=xlUp
    [B1].Select
    ActiveWorkbook.Save
End Sub

 

[Wael Hamed_1975]

للأسف الكود لا يعمل صحيح

يأهل الخير مساعدة.

[Wael Hamed_1975]

تم إيجاد الكود

Sub dd()
Dim lr As Integer
lr = [a1000].End(xlUp).Row + 1
Rows(lr & ":" & 26).Delete shift:=xlUp
End Sub