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