Macro Excell

J'ai créé une macro sous excell pour récupérer des données d'une feuille de calcul du sossier D1 et les transférer vers une autre feuille de calcul dans un dossier D2. ça marche mais mon problémen c'est que mes infos quand je lance la macro effacent ce que j'ai dans mon tableau car les infos se positionnent toujours sur la même ligne. Il faut que lorsque mes données sont enregistrées dans D2 que la macro me positionne sur la ligne du dessous dans D2 pour la prochaine action
Pouvez-vous m'aider?
vOICI MA MACRO
Range("Z1:AL1" ).Select
Selection.Copy
Workbooks.Open Filename:="C:\VERIFICATION\F-35.xls"
Range("A6" ).Select (1ére ligne de D2)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("F:F" ).EntireColumn.AutoFit
Range("A7" ).Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("AI7" ).Select
ActiveWindow.SmallScroll ToRight:=-20
Sheets("INFO" ).Select
ActiveWindow.SmallScroll Down:=-27
Range("B3" ).Select
fin:
End Sub