I can get my table to auto-sort perfectly upon changes in ascending or descending order using the following code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Range("E8").Sort Key1:=Range("E9"), _...