指定したシート以降をコピーしたい

Question

前提・実現したいこと

指定したシート以降をコピーしたい

発生している問題・エラーメッセージ

該当のソースコード

'都道府県シート以降をコピーしたい
ThisWorkbook.Worksheets("都道府県").Next.Index To Worksheets.Count.copy

試したこと

ThisWorkbook.Worksheets("都道府県").Next.Index To Worksheets.Count

この構文で、都道府県以降のシートの次のシートからという意味になります。
都道府県以降のシートをコピーしたいため、「Copy」と語尾に入れると赤字になってしまいます、、。

Answer 1

都道府県シート以降のシートを新規ブックにコピーしたいということなら、

Sub Sample()
    Dim nextIndex As Long, i As Long, ary() As Long
    
    nextIndex = Worksheets("Sheet1").Next.Index
    ReDim ary(nextIndex To Worksheets.Count)
    For i = nextIndex To UBound(ary)
        ary(i) = i
    Next
    Sheets(ary).Copy
End Sub

Answer 2

ThisWorkbook.Worksheets("都道府県").Next.Indexは都道府県シートの次のシート番号、
Worksheets.Countは、シートの枚数(つまり最後のシート番号)を返すだけなので、
「都道府県以降のシートの次のシートから」という意味にはなりませんね…

例えば、10シートあるブックのうち、3番目に都道府県シートがあるとします。
ThisWorkbook.Worksheets("都道府県").Next.Index To Worksheets.Countの結果は、
4　To　10となります。
これにcopyメソッドを付けることはできません。

しかし、ここで出た数字を利用して、for文でシートのコピーをすることは可能かと思います。

Dim i As Integer

	for i=ThisWorkbook.Worksheets("都道府県").Next.Index To Worksheets.Count
		Worksheets(i).Copy
	Next i

蛇足ですが、Worksheets(i).Copyを実行すると、新規Bookにシートをコピーすることになります。
なので、上記のコードを実行すると、コピーしたいシートの数だけブックが作成されてしまうかと思います。
元のブックにコピーしていくなら、Copyの後ろに、BeforeかAfterを付けてやる必要があります。
最後にコピーするなら
Worksheets(i).Copy After := Worksheets(Worksheets.Count)
先頭にコピーするなら
Worksheets(i).Copy Before := Worksheets(1)