أستاذي العزيز شكرا وجعلها الله في ميزان حسناتك
والمعذرة على الإلحاح
فماذا أفعل فأنا محب للإكسل واللتعلم وأنتم بحر من العلم والأخلاق
لوتكرمت أستاذي وشرح الفقرة من الكود
Sheets("HHH").ShowAllData
Sheets("HHH").Range("ba2:Bh" & L).ClearContents
Sheets("cont").Select
Sheets("cont").Range("a10:l" & Sheets("cont").Cells(Rows.Count, "a").End(xlUp).Row).Sort Key1:=Range("c10")
'End If
End If
Application.ScreenUpdating = True
End Sub