dosyanızı xlsm yada xlsb olarak kaydedip yeni bir modül ekleyerek aşağıdaki fonksiyonu o modüle yazın
sayfaya bir buton ekleyip butona aşağıdaki fonksiyonu tanımlayın butona her bastığınızda veriler tarihe göre sıralanır
dediğinizi yanlış anlamadıysam bu şekilde yapabilirsiniz

sub SyfAktarSirala()

Dim Sht As Worksheet

Set Sht = ThisWorkbook.Worksheets("Sayfa1")

Sht.Columns.Sort key1:=Sht.Columns("E"), Order1:=xlAscending, Header:=xlYes

End sub