Excel Reagrupar células que não sejam vazias

[paulonigro]

Boa noite!
Por favor, gostaria de saber se existe alguma maneira de reagrupar valores "espalhados" em uma linha, de maneira que eles fiquem
em ordem crescente, e sem células vazias entre eles, como segue a figura anexa.

A princípio tentei usar as funções do Excel, mas creio que somente uma função VBA, com um array,...enfim..

Desde já eu agradeço.

Att,

Nigro

[Visitante]

1. selecione o intervalo azul

2. menu Dados / Classificar / Opções / marque Da esquerda para a direita / OK / Classificar por ~~~> Linhas x / OK

 

Se essa for uma tarefa repetitiva grave uma macro.

[paulonigro]

@osvaldomp Entendi, mas o problema é que eu não posso mexer na primeira linha. Ela deve ficar onde com os valores onde estão. Acho que vou fazer uma função em VB que lê a primeira linha e grava na segunda... 

De qualquer modo obrigado!

[Visitante]

solução manual - copie a linha 1 e cole na linha 2, em seguida aplique na linha 2 o procedimento que comentei antes

 

 

solução por fórmula - cole uma cópia da fórmula abaixo em A2 e arraste para a direita (se a fórmula retornar #NOME então substitua as duas ococrrências de COLUNA por COL)

=SE(COLUNA(A1)>CONT.NÚM(1:1);"";ÍNDICE(1:1;CORRESP(MENOR(1:1;COLUNA(A1));1:1;0)))

 

solução por macro

Sub ReplicaOrdena()
 Range("A1", Cells(1, Columns.Count).End(1)).Copy [A2]
 Range("A2", Cells(2, Columns.Count).End(1)).Sort Key1:=[A2], Order1:=xlAscending, Orientation:=xlLeftToRight
End Sub