VBA pour une application Spécifique

Bonjour ,
je suis nouveau en programmation VBA , et je suis en train de faire un fichier pour entre de nouvelle donné et que le tout soit rapide , dans le fond je crée des RNC ( Rapport de non Conformité ) alors quand j'appuis sur le bouton ajout de ligne , je veut que sa rajoute ma mise en forme et que sa pose quelque question et que les réponse s'inscrive dans les bon champ approprié , le probleme et que pour la premiere ligne que je fais sa fonctionne #1 , mais lorsque que je rentre ma deuxième ligne , je ne suis pas capable de faire suivre les réponse au bonne case

Voici mon code :

Sub ajoutLigne()
Range("A9").End(xlDown).Select
Selection.EntireRow.Copy
Selection.Insert Shift:=xlDown
Selection.Offset(1).Select 'descendre à la cellule en dessous, donc à la dernière ligne
Range(Selection, Selection.Offset(0, 3)).Copy
Dim d1, d2
d1 = InputBox("Description du RNC :")
d2 = InputBox("Personne qui a fait l'erreur:")
Range("B2") = d1
Range("C2") = d2
End Sub

Merci de votre aide :)