Error "1004" de "Aplicación definida o Objeto definido"

Así que estaba intentando copiar datos de diferentes hojas y pegar en la actual y recibo este error:

"Aplicación definida o objeto definido" error '1004 "

Puede alguien ayudarme con esto ?

Option Explicit
Sub finddata()

Dim fname As String
Dim FinalRow As Long
Dim i As Integer


Sheets("Report").Range("A10:N200").ClearContents
fname = Sheets("Report").Range("A4").Value
FinalRow = Sheets("Database").Range("A1000").End(xlUp).Row

For i = 3 To FinalRow
    If Sheets("Database").Cells(i, 1) = fname Then
    Sheets("Database").Range(Cells(i, 11), Cells(i, 24)).Copy  ----> Getting "Application Defined or Object Defined" error '1004" on this line
    Sheets("Report").Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
End If
Next i

End Sub

La referencia a Cells no está en la misma hoja que la llamada a Range. Esto se menciona en los documentos para Range.Item. Funcionará si Database Es la hoja activa pero no de otra manera.

Intenta reemplazar la línea de error con

With Sheets("Database")
    .Range(.Cells(i, 11), .Cells(i, 24)).Copy 
End With

Tenga en cuenta los períodos anteriores Cells.