se quiser ordenar as datas na coluna 'I' ative a penúltima linha do código removendo o apóstrofo inicial

Sub ListaDatas()
 
 Dim LRa As Long, LRi As Long, Ocel As Range
 Dim Datas As Range, Datad As Range, Datah As Range
 LRa = Cells(rows.Count, 1).End(xlUp).Row
 LRi = Cells(rows.Count, 9).End(xlUp).Row

 Set Datad = Range("D2:D" & LRa)
 Set Datah = Range("H2:H" & LRa)
 Set Datas = Union(Datad, Datah)
  
 Range("I2:I" & LRi).ClearContents
  For Each Ocel In Datas
   If Application.CountIf(Columns(9), Ocel.Value) < 1 Then
    LRi = Cells(rows.Count, 9).End(xlUp).Row
     Cells(LRi + 1, 9) = Ocel
   End If
  Next Ocel
'Range("I2:I" & LRi + 1).Sort Key1:=Range("I2"), Order1:=xlAscending

End Sub

Salve Osvaldo,

Seja bem vindo ao Planilhando. Pessoal esse é fera.

fico show osvaldo! obrigado por qbra meu galho, boa semana para vc, e para todos do forum..

abrass!

@ JoseA
Fala, Mestre.
Grato pela recepção.
O Adalberto (Patropi) me deu um toque sobre este fórum.
Só tem MVPs aqui, incluindo você! Ótimo para aprender.
grande abraço

@ cleiton jm
Aê, Cleiton, ficamos contentes que você resolveu a sua parada.
Ótima semana, abraços

Boa noite!!

Seja bem vindo Osvaldo, grande fera VBA, veio para somar!!

Talvez essa seja uma outra forma

Sub TesteAleVBA()
Dim e, s, i As Long
With CreateObject("System.Collections.SortedList")
    For Each e In Array("D", "H")
        For Each s In Range(e & 2, Range(e & Rows.Count).End(xlUp)).Value
            If Not IsEmpty(s) Then .Item(s) = Empty
        Next
    Next
    For i = 0 To .Count - 1
        Cells(i + 2, "I").Value = .GetKey(i)
    Next
End With
End Sub