How could I auto sort column 9 (descending) automatically upon any cell update

[diogodasilva]

With the help of @Fluff who finessed the code to update column 9 with a timestamp if any columns (1 to 17, except 9) is edited. and second part of the code reorganizes descending based on the timestamp (column 9).

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   Select Case Target.Column
      Case 1 To 8, 10 To 17
         Range("I" & Target.Row).Value = Format(Now, "dd-mm-yyyy hh:mm:ss")
   End Select
End Sub

Now I am trying to implement auto sort column 9 (descending) automatically upon update but it is beyond my knowledge . So the table reorganizes by last update automatically.
Thanks in advance

 

[JEC]

Assuming your column 9 has a header

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   Application.EnableEvents = False
   Select Case Target.Column
      Case 1 To 8, 10 To 17
        With Range("I1", Range("I" & Rows.Count).End(xlUp))
           .Item(Target.Row, 1).Value = Format(Now, "dd-mm-yyyy hh:mm:ss")
           .Resize(IIf(Target.Row > .Rows.Count, Target.Row, .Rows.Count)).Sort Range("I2"), 2, , , , , , 1
        End With
   End Select
   Application.EnableEvents = True
End Sub

 

[diogodasilva]

Assuming your column 9 has a header

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   Application.EnableEvents = False
   Select Case Target.Column
      Case 1 To 8, 10 To 17
        With Range("I1", Range("I" & Rows.Count).End(xlUp))
           .Item(Target.Row, 1).Value = Format(Now, "dd-mm-yyyy hh:mm:ss")
           .Resize(IIf(Target.Row > .Rows.Count, Target.Row, .Rows.Count)).Sort Range("I2"), 2, , , , , , 1
        End With
   End Select
   Application.EnableEvents = True
End Sub

Headers are on row 3.