Я пытаюсь скопировать и переименовать лист, но я получаю индекс из-за ошибки диапазона

Question

Я пытаюсь скопировать Sheet2 в Sheet3 и переименовать его в Result, но я продолжаю получать ошибку индекса вне диапазона (это происходит потому, что этот лист не существует, что, вероятно, означает, что копирование не происходит).

Я попытался использовать Copy, как показано в коде ниже, но ошибка индекса вне диапазона продолжает появляться.Любая помощь в решении этого вопроса действительно приветствуется.Спасибо!

    Set shtSheet1 = Worksheets("Sheet1")
    Set shtSheet2 = Worksheets("Sheet2")

    'trying to copy Sheet2 and create a Sheet3 tab
    shtSheet2.Copy After:=Sheets("Sheet3")
    Set shtSheet3 = Sheets(Sheets("Sheet3").Index + 1)
    shtSheet3.Name = "Result"

Answer 1

Копия листа

После листа2

Sub NewSheetAfterSheet2()

  Dim shtSheet2 As Worksheet
  Dim shtSheet3 As Worksheet
  Set shtSheet2 = Sheets("Sheet2")

  shtSheet2.Copy After:=shtSheet2
  Set shtSheet3 = Sheets(shtSheet2.Index + 1)
  shtSheet3.Name = "Result"

End Sub

Последняя позиция

Sub NewSheetLastPosition()

  Dim shtSheet2 As Worksheet
  Dim shtSheet3 As Worksheet
  Set shtSheet2 = Sheets("Sheet2")

  shtSheet2.Copy After:=Sheets(Sheets.Count)
  Set shtSheet3 = Sheets(Sheets.Count)
  shtSheet3.Name = "Result"

End Sub