Tem certeza de que deseja uma macro para essa tarefa trivial? Experimente o seguinte e veja se funcionaria para você:
- Insira uma nova coluna
Cna sua folha de amostra com "Apple", "Laranja" e "Banana" - Insira a fórmula
=IF(B2<>"",B2,C1)noC2 - Selecione
C2e arraste / preencha a fórmula para quantas linhas precisar