Les données remontes, oú est l'erreur?

Bonsoir
Avec la formule suivante:

Range("D25:Z25").Copy
Range("AA1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

je colle les valeurs de D25:Z25 dans la premiere cellule libre colonne AA.

Le probleme est que D25:Z25 ne contient pas toujours le meme nombre de valeurs
Exemple premier collage en AA1, D25:Z25 contient 3 valeurs: 1-5-8
Lors du collage suivant en AA2, si D25:Z25 contient 5 valeurs: 1-4-5-7-9, je me retrouve avec une ligne AA1= 1-5-8-7-9 et la ligne AA2 contient 1-4-5

Comment puis je coller sans que les valeurs se deplacent?

Merci pour votre aide.