Auto Sorting Time Log

I am trying to figure out if there is a way to have a time log auto sort based on a date and time? If possible it would be nice to do this without a table as I have had a few problems with the tables not sorting correctly and overall appearance just doesnt seem pleasant. I know you can do it, using the Sort function, but I have people that can barely use a computer, so if this can be automated it would be great.

What I am looking to do:

1) Enter a time, date and an event that happened all on one row but different cells.

Date: Start Cell A16 to A44
Time: Start Cell D16 to D44
Events: Start Cell F16 to F44

2) As you add new date and time to the Log, have it Auto Sort, from Oldest (On Top) to Newest (On Bottom).

I will eventually be prepopulating a majority of the "Event" Cells with required events that need be to document, while the rest that are not prefilled, will be user entered events that need to be auto sorted so that all times fall in-line correctly.

Thanks in advance for your time. I attached a Sample File Below.

Time Log Example.xlsx

Nice works great.

But I dont suppose theres a way to have it run each time theres data put into the cells to check if list is in order? Instead of having to hit the button each time? If not this will work great as well. Don't go nuts if this can't be done easily ;-)

Ok came up with a little problem? If in the event there is a need for another Time Log in the Report, the Sort button doesn't Work? I tried manipulating the code to allow for a Variable of the word "Time Log*" but I cant figure it out.

So if there is one Tab named "Time Log" and then you need another one, the second one is called "Time Log (1)" I need it to be able to sort that second page as well.

Like the code I have below that will count how many Tabs in the workbook are Named "Time Log"

'Count of Time Logs in report
For i = 1 To Worksheets.Count
    If Worksheets(i).Name Like "Time Log*" Then
        Ctimelog = Ctimelog + 1
    End If
Next i
Worksheets("Table of Contents").Range("I13").Value = Ctimelog

Bump for a little help, please.

Anyone? Please?