[VBA] contenu de cellules..

Bonjour,
voici mon problème
j'ai une liste d'article, avec en face de chaque article un bouton "ajouter au panier" associé a une macro.
je veux que la macro copie la référence de l'article + prix etc ( la lige relative a l'objet commandé en fait) puis colle cette ligne sur la première ligne libre dans le bon de commande.

La première case du bon de commande est B21.
J'aimerais que la maccro test le contenu de B21 et si elle n'est pas vide, test B22...etc afin de copier l'article commandé a la fin du bon de commande...
voici ce que j'ai fait (j'ai utilisé un integer i pour parcourire les cellules...)

Sub ajouter_l1()

Dim i As Integer
i = 21
Cells(i, 2).Select
If ActiveCell.Value = "" Then i = i + 1



Range("B10:F10").Select
Application.CutCopyMode = False
Selection.Copy
Cells(i, 2).Select
ActiveSheet.Paste
Range("B15").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A1:G1").Select
End Sub

Tout le dernier bloc est juste visiblement mais ça ne va pas dans le premier... j'espère avoir été a peu près compréhensible.
merci d'avance.
To1n00