Вырезать и вставить содержимое на следующий лист с неизвестным именем

Question

Я хочу вырезать несколько строк своего активного листа и вставить их на следующий лист. Но я никогда не узнаю название следующего листа.

Пробовал:

Range("1:26").Cut After:=ActiveSheet

Спасибо.

Answer 1

Range("1:26").Cut Worksheets(ActiveSheet.Index + 1).Range("A1")

или

Range("1:26").Cut Worksheets(ActiveSheet.Index + 1).Range("1:26")

, если вы хотите переместить их в одно и то же положение ...

Answer 2

Рассмотрим:

Sub cutandpaste()
    Dim r1 As Range, r2 As Range
    
    Set r1 = ActiveSheet.Range("1:26")
    Set r2 = ActiveSheet.Next.Range("1:26")
    
    r1.Cut r2
End Sub

или:

Sub another()
    With ActiveSheet
        .Range("1:26").Cut .Next.Range("1:26")
    End With
End Sub