Pessoal,

Preciso da ajuda de vocês. Eu cheguei a a dois códigos e gostaria de junta-los mas estou com certa dificuldade.
O que eu precisaria na verdade e que se tivesse qualquer qualquer alteração nas colunas "A:I" ele me atualizasse a data e hora nas colunas "i" e "J" e organizasse a data da coluna "i" da data mais atual para antiga.
Gostaria que isso fosse feito de forma automática sempre que eu atualizasse algum valor da planilha.

Conto com a ajuda de vocês!

Sub Worksheet_Change(ByVal faixa As Range)
Dim Dados As Range
    Set Dados = Range("A:H")
    If Not Intersect(faixa, Dados) Is Nothing Then
        Application.EnableEvents = False
        Dados.Cells(faixa.Row, 9).Value = Date
        Dados.Cells(faixa.Row, 10).Value = Time
        Application.EnableEvents = True
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:H")) Is Nothing Then
        Range("I5").Sort Key1:=Range("I6"), _
          Order1:=xlDescending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub