Cómo seleccionar todas las celdas vacías debajo de la actual seleccionada hasta la primera celda no vacía en VBA

Estoy tratando de escribir una macro que copie la celda actual y pegue el texto en cada celda vacía debajo de ella hasta que llegue a la primera celda no vacía.

Entonces, si tenía "Apple" en la celda B2 y "Orange" en la celda B8 y "Banana" en la celda B11, cuando selecciono B2 y ejecuto la macro, las celdas B3: B7 se llenan con "Apple" y cuando ejecuto la macro con B8 seleccionado, las celdas B9: B10 se llenan con "Naranja".

¿Estás seguro de que quieres una macro para esta tarea trivial? Pruebe lo siguiente y vea si funcionaría para usted:

• Inserte una nueva Ccolumna en su hoja de muestra con "Apple", "Orange" y "Banana"
• Ingrese la =IF(B2<>"",B2,C1)fórmula en elC2
• Seleccione C2y arrastre / complete la fórmula para ver cuántas filas necesita