Ecrirer des contenus différents dans cellule vide

Bonjour,

J'ai actuellement un problème pour écrire mon code VBA.

J'ajoute plusieurs base de données sur une même feuille EXCEL et je voudrais remplir une colonne particulières avec un mot unique pour chacun des base de données

Je voudrais écrire dans les cellules vides de ma première base de donné un mot en particulier "KIT ETIQUETTE ESCALIER".
Dès qu'une autre cellule de cette même colonne est non vide (ce qui correspond à l'en tête d'une autre base de données) écrire le mot "KIT ETIQUETTE" jusqu'à retrouver une autre en tête de la troisième base de donnée ect…

Pour l'instant le code que j'ai réalisé, chercher la 1ère ligne vide et écrit "KIT ETIQUETTE ESCALIER" dans tout la base de donnée.

With Sheets("ExtractFal")
DernRow = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To DernRow

If Cells(i, 10).Value = "" Then
Cells(i, 10).Value = "KIT ETIQUETTE ESCALIER"

End If

Next i

For i = i + 1 To DernRow

If Cells(i, 10).Value = "" Then
Cells(i, 10).Value = "KIT ETIQUETTE"

End If

Next i

End With

Merci d'avance pour votre réponse