i8ig
Try this, which assumes a heading in M1 of the date column. (It's pretty much what Ralph suggested, only assigning the code to a button rather than a shortcut key)
1. With your workbook open, press Alt+F11 to open the Visual Basic window.
2. Use the VB menu.. Insert|Module
3. Copy the code below and paste into the right hand pane of the VB window that appears after step 2 then close the VB window
4. Back at your sheet, View|ToolBars|Forms
5. Click the "Button" icon and draw a button on your sheet. The "Assign Macro" dialog opens and select "Sort" thern click OK
Try clicking the button. If it is not what you wanted, post back with further details.
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Sort()
<SPAN style="color:#00007F">With</SPAN> Range("M1").CurrentRegion
.Sort Key1:=Range("M2"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>