Macro vba

Bonjour,
j'ai un petit soucis, je dois mettre à jour une base de donnée, pour cela j'utilise donc ce code :

Sub J10()
Sheets("autres").Select

i = 3
j = 2
Cells(3, 2).Select
Do While Selection <> ""
i = i + 1
Cells(i, j).Select
Loop
Rows(i - 1).Copy
Rows(i).Select
ActiveSheet.Paste


pour creer des nouvelles lignes qui repliquent les formules. jusque la tout va bien le code replique des formules qui vont chercher des valeurs sur un fichier (qui change tte les semaines) et les appliquent.

voici mon pb j'aimerai ajouté dans le code une fonction qui permette de figer l'avant derniere ligne, en effet le code actuel ne fait que copier coller et donc a chaque fois que j'extrait des nouvelles valeurs pour mettre a jour mon fichier les lignes précédant la nouvelle prennent les meme valeur que la derniere creer.

merci