Как средствами VBA сделать точную копию листа и вставить ее в конец книги?

[EducatedFool]

Sub test()
    Application.DisplayAlerts = False
    Worksheets("Лист2").Delete
    Application.DisplayAlerts = True
End Sub

PS:
Третий раз задаётся этот вопрос на форуме.
Третий раз я пишу этот пример в модуле Листа1.
Как всегда, после написания кода нажимаю F5 для его проверки.
И вспоминаю множество нехороших слов, когда Excel в очередной раз удаляет лист вместе с только что написанным кодом

[Pavel_Ine]

большой пасиб! вы меня седня очень сильно выручили! но скорее всего я еще обращусь )))

[gizy@]

1) Как скопировать и вставить "Лист 1" в конец и новый лист переименовать например на "Лист 777". Скопировать и вставить A1:G60.

2) Как сделать чтоб когда меняешь например что то в "Листе 1", автоматический сразу менялся и в "Листе 2". А именно с A1:G60.

Надеюсь написал понятно)))

Спасибо заранее!

[EducatedFool]

2 gizy@
На будущее: Создайте новую тему, и в ней задавайте вопрос.

Как скопировать и вставить "Лист 1" в конец и новый лист переименовать например на "Лист 777"

Sub test()
    Worksheets("Лист1").Copy , Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Лист 777"
End Sub

Как сделать чтоб когда меняешь например что то в "Листе 1", автоматический сразу менялся и в "Листе 2".

На листе 2 в ячейку A1 введите формулу =Лист1!A1, и растяните её на диапазон ячеек A1:G60