تعديل على كود SORT

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

ارجو المساعده عند استخدام الكود المرفق كود ترتيب  .. يتم الوقوف على اخر خليه بها بيانات فى العمود A

بدلا من الوقوف على الخليه  A4

Sub SortData()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A4:l" & LR).Sort Key1:=Range("B1:B" & LR), Order1:=xlAscending, Key2:=Range("L4:L" & LR), Order2:=xlDescending, Header:=xlYes
    Sheets("عام").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A4").Select
End Sub

 

[ياسر خليل أبو البراء]

وعليكم السلام

جرب استبدال السطر الأخير

Range("A4").Select

بهذا السطر

Application.GoTo Range("A4"),True

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم اخى ياسر

تم المطلوب 

تتبعت بعض اعمالك فوجدت الحل

Selection.End(xlDown).Sele

جزاك الله خير