Perso je chercherai le dernier ligne vide avec :
iNbLigne = Sheets("X-OPEN" ).Range("A65000" ).End(xlUp).Row
ensuite tu te calles sur cette cellule
Sheets("X-OPEN" ).Cells(iNlLigne,1).Select
et tu colles (je sais pas si ActiveSheet.Paste marche)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False