Comment sélectionner toutes les cellules vides sous le courant sélectionné jusqu'à la première cellule non vide dans VBA

J'essaie d'écrire une macro qui copie la cellule actuelle et colle le texte dans chaque cellule vide située en dessous de celle-ci jusqu'à ce qu'elle atteigne la première cellule non vide.

Donc, si j'avais "Apple" dans la cellule B2 et "Orange" dans la cellule B8 et "Banana" dans la cellule B11, lorsque je sélectionne B2 et exécute la macro, les cellules B3: B7 sont remplies avec "Apple" et lorsque j'exécute la macro avec B8 sélectionné, les cellules B9: B10 sont remplies avec "Orange".

Êtes-vous sûr de vouloir une macro pour cette tâche triviale? Essayez ce qui suit et voyez si cela fonctionnerait pour vous:

• Insérez une nouvelle Ccolonne dans votre feuille d'échantillon avec "Apple", "Orange" et "Banana"
• Entrez la =IF(B2<>"",B2,C1)formule dans leC2
• Sélectionnez C2et glissez / remplissez la formule vers le bas pour combien de lignes vous avez besoin