Colega FoxMana Boa Noite!

Bem, como você não apresentou nenhuma planilha vou na suposição...

Supondo que sua coluna A esteja preenchida e que seus dados começam na linha 2 então:

1. Rode esse código:

Sub destacar()
Dim ul As Long
ul = Range("A" & Rows.Count).End(xlUp).Row

[a2].Select
For i = 2 To ul Step 900
ActiveCell.Interior.ColorIndex = 36
ActiveCell.Offset(900, 0).Select
Next i
End Sub

Ele fará com que, a cada 900 linhas, uma fique com preenchimento amarelo.

2. classifique os dados por Cor.

3. copie e cole em uma nova aba apenas os destacados;

4. Use os dados dessa nova aba para montar sua planilha.

Obs* Não sei se é a melhor forma mas, essa sub poderia servir de base para automatizar ainda mais essa rotina. Porém, pra isso, precissariamos ver a estrutura da sua planilha.

Abrç!

Colega xlarruda vc me salvou , consegui, deu certo, muito obrigado mesmo.

Abraço