Копирование - вставка на скрытом листе

[Rust]

Лист Sheets(2) скрыт.
В последней строке кода вылетает ошибка

Dim Sheet_tab As Worksheet
Set Sheet_tab = ThisWorkbook.Sheets(2)
check = 1

Sheet_tab.Range(Sheet_tab.Cells(3, 1), Sheet_tab.Cells(3, 3)).Copy
Sheet_tab.Range(Sheet_tab.Cells(check + 8, 1), Sheet_tab.Cells(check + 8, 3)).Paste

[Template]

Код: Выделить всё

Sheet_tab.Cells(3, 1).Resize(, 3).Copy Sheet_tab.Cells(check + 8, 1).Resize(, 3)

Код: Выделить всё

With ThisWorkbook.Worksheets(2)
     .Range(.Cells(3, 1), .Cells(3, 3)).Copy .Range(.Cells(check + 8, 1), .Cells(check + 8, 3))
End With

[bi-lya]

Код: Выделить всё

With Sheet_tab
  .Range(.Cells(3, 1), .Cells(3, 3)).Copy Destination:=.Cells(check + 8, 1)
End With


[Rust]

Спасибо, bi-lya!
То, что надо.