Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A15000]) Is Nothing Then Exit Sub
Cancel = True
Sayfa1.Range("A2:A" & Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row).Sort Sayfa1.Range("A2"), 1
End Sub

Üstteki kodu, Visual Basic ekranındaki Sayfanın kod alanına yapıştırın.
Ben A1 Hücresine Tarih başlığı yazdım, altına doğru ise rastgele tarihler sıraladım.
A1:A5000 arasında bir şeyler yaptığınızda sıralama olur.

Kendi dosyanıza uyarlayabilirsiniz.
Daha fazlası için dilerseniz ziyaret edebilirsiniz:
https://www.exceldepo.com