Só faltou incluir essa linha: ComboBox1.Value = "Option A" Assim: Private Sub ComboBox1_Change() Select Case Sheet1.ComboBox1.Value ...

Estranho vc não conseguir abrir o arquivo. Em todo caso, segue o código. Vc deve colocá-lo, não em um módulo, mas diretamente no código da planilha; ...

Como vc tem muitas linhas e colunas, provavelmente o código vai inflando a memória até que dá erro (foi um estouro, não foi?). Se foi mesmo um estour...

Não testei, mas experimente: Sub copiar_em_ordem() Dim i As Long, j As Long, n As Long Application.ScreenUpdating = False j = 1 For k = 1 To ...

filtro? Pode até aplicar filtro via vba e imprimir

Nesse caso, vc pode enviar um exemplo da planilha? E se acontecer de ter o valor 1 e o valor 2 (por exemplo), na mesma coluna?

Não entendi, nessa linha, vc copia se o valor for 2, não se for 1 If Cells(5, 1 + i).Value = 2 Then Mas, pode trocar por: If Cells(5, 1 + i).Value...

Então está resolvido? Se estiver, marque o tópico como resolvido e clique na mãozinha.

Essa linha: Application.CutCopyMode = False Limpa da memória o que foi copiado (cancela o copiar colar). Experimente o código sem ela.

Ah... explicando direitinho a gente entende Veja o anexo. É o princípio, talvez vc precise incluir mais alguma coisa, dependendo do teu projeto. Blo...

Use a proteção de planilhas. Vai em revisão -> proteger planilha

A fórmula ficou extensa, mas deu certo. Veja coloquei a fórmula em L25. Para ajudar, quebrei ela em pedaços, e coloquei junto com uma breve explica...

Não entendi. Pela fórmula que te passei, toda vez que tiver um nome novo, ela vai atualizar para este nome, que é o que vc passou no exemplo. PS: v...

Então experimente esta em F5: =SE(A5="";F4;A5) Arraste para o lado e para baixo Se ajudou, lembre de clicar na mãozinha. EDIT: depois, é ...

Experimente colocar esta f´romula em A3: =ESQUERDA(B3;1 Depois, arraste para baixo.