Ошибка времени выполнения 9 - подписка вне диапазона

Question

Я получаю постоянную ошибку «вне диапазона», но ссылка на диапазон верна, пожалуйста, помогите мне исправить ошибку: ошибка или ошибка в кодировке выделены жирным шрифтом в приведенном ниже коде:

Sub CopyStuff()

    **Sheets("Data-BNF").Range("D11:X76").Copy**
    Sheets("Storage-OI").Range("C" & Rows.Count).End(xlUp).Offset(2, 0).PasteSpecial xlPasteValues

End Sub

Answer 1

Измените ниже и попробуйте:

Option Explicit

Sub Copy()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim Lastrow As Long

    With ThisWorkbook
        Set ws1 = .Worksheets("Data-BNF")
        Set ws2 = .Worksheets("Storage-OI")
    End With

    Lastrow = ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row

    ws1.Range("D11:X76").Copy
    'Try the **ONE of the below**
    ws2.Range("C" & Lastrow + 1).PasteSpecial Paste:=xlPasteValue
    ws2.Range("C" & Lastrow + 1).PasteSpecial xlPasteValues

End Sub