Experimente:

Sub ListaOrdenada()
 Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Copy [D2]
 Range("D2:D" & Cells(Rows.Count, 4).End(3).Row).RemoveDuplicates Columns:=1, Header:=xlNo
 Range("D2:D" & Cells(Rows.Count, 4).End(3).Row).Sort Key1:=[D1], Order1:=xlAscending
End Sub

Resolveu em parte, na minha listagens há linhas em branco o que prejudica o desenvolvimento da macro.
O que podemos fazer para que a macro desconsidere as linhas em branco?

Resolveu em parte, na minha listagens há linhas em branco o que prejudica o desenvolvimento da macro.
Resultado óbvio, pois você postou um exemplo de listagem SEM CÉLULAS VAZIAS e está tentando aplicar a macro em uma listagem COM CÉLULAS VAZIAS.

O que podemos fazer para que a macro desconsidere as linhas em branco?
Disponibilize um novo exemplo E X A T A M E N T E I G U A L A O S E U O R I G I N A L, e coloque o resultado desejado.

Entendi Osvaldo

Segue novo arquivo, agora com células em branco.

Muito obrigado

Testei o código no segundo exemplo que você postou e funcionou corretamente.

Muito obrigado!!!

Situação resolvida!!!