incrémentation du type Range("b[+k]").Select

je cherche à faire la boucle suivante:
n=0
tant que la cellule n'est pas vide, on compte le nombre n de cellule
n=n+1
...
mon problème est l'incrémentation...je voudrais savoir comment programmer l'équivalent de:
For k = 1 To 5
Range("bk").Select
ActiveCell.FormulaR1C1 = "=Isblanck(R[+k]C1)"
exit for
next k

merci