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