how modify a macro code

[tarikov2006]

Hello .


Delighted to be among you. I am asking you please to help me to modify a macro code by keeping its function and add a line to open another sheet (sheet 2) in the same workbook.
the code :
Sub Veron()
Application.ScreenUpdating = False
y = WorksheetFunction.CountA(Worksheets(2).Range("A:A" )) + 2
For x = 1 To 800
Worksheets(2).Cells(y, x) = Worksheets(1).Cells(8, 9 + x)
Next x
ans = MsgBox("Nom Ajouté", vbOKOnly)
End Sub

the file
http://www.filedropper.com/doc1


thank you in advance

[Pecoflyer]

Please do not cross post without adding links

read this to understand why and add links to ALL your cross posts
http://www.mrexcel.com/forum/excel-q...acro-code.html
http://www.excelforum.com/excel-prog...acro-code.html