السلام عليكم
ارجو المساعده عند استخدام الكود المرفق كود ترتيب .. يتم الوقوف على اخر خليه بها بيانات فى العمود 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