Fehlermeldung beim kopieren und einfügen

Sub Schaltfläche1_Klicken()
Dim Eingabe As String
Dim lz As Long
Dim lz1 As Long
Dim i As Long
Dim n As Long
Dim Wkb As Workbook
Dim Wks As Worksheet
Set Wkb = ThisWorkbook
n = 1
Eingabe = InputBox("Bitte geben Sie Ihren Namen ein")
lz = Wkb.Sheets(n).Cells(Rows.Count, 1).End(xlUp).Row
lz1 = Wkb.Sheets("EE-Plan").Cells(Rows.Count, 1).End(xlUp).Row + 1
For n = 1 To Sheets.Count - 1
For i = 1 To lz
If Wkb.Worksheets(n).Cells(i, 1).Value = Eingabe Then
Wkb.Worksheets(n).Range(Cells(i, 1), Cells(i, 9)).Copy Wkb.Worksheets("EE-Plan"). _
Cells(lz1, 1)
End If
Next i
Next n
End Sub