Come selezionare tutte le celle vuote sotto la corrente selezionata fino alla prima cella non vuota in VBA

Sto cercando di scrivere una macro che copia la cella corrente e incolla il testo in ogni cella vuota sotto di essa fino a raggiungere la prima cella non vuota.

Quindi se avessi "Apple" nella cella B2 e "Orange" nella cella B8 e "Banana" nella cella B11, quando seleziono B2 ed eseguo la macro, le celle B3: B7 vengono riempite con "Apple" e quando eseguo la macro con B8 selezionato, le celle B9: B10 vengono riempite con "Arancione".

Sei sicuro di voler una macro per questo compito banale? Prova quanto segue e vedi se funzionerebbe per te:

• Inserisci una nuova Ccolonna nel foglio di esempio con "Apple", "Orange" e "Banana"
• Inserisci la =IF(B2<>"",B2,C1)formula inC2
• Seleziona C2e trascina / riempi la formula verso il basso per quante righe hai bisogno