Как исправить проблему с выбором диапазона на скрытой книге?

Question

Я пытаюсь выбрать диапазон в скрытой книге, которую открыл с помощью команды GetObject, и автоматически заполнить диапазон в соответствии с некоторыми критериями.

Но я получаю

Ошибка времени выполнения 1004 Ошибка выбора метода диапазона классов.

Что не так?

GetObject (WbDb)

Dim Database As Worksheet
Set Database = Workbooks("DATABASE").Worksheets("DATASHEET")

With Database
    Dim NextRow As Long
    NextRow = Database.Cells(Database.Rows.Count, 3).End(xlUp).Offset(1, 0).Row

    If Database.Range("B4").Value = "" And Database.Range("C4").Value = "" Then
        NextRow = NextRow - 1
    End If

    MyForm.Range("DATE").Copy
    Database.Cells(NextRow, 3).PasteSpecial Paste:=xlPasteValues

    If NextRow > 4 Then
        Database.Activate
        Database.Select
        Database.Range("B4").Select
        Selection.AutoFill Destination:=Range("B4:B" & NextRow)
    End If

Я новичок в VBA, поэтому не судите строго.