Ошибка выдачи макроса «Ошибка времени выполнения 1004: сбой метода« Диапазон »объекта« Глобальный »

Question

Sub Load()

    '
    ' Load Evaluation Macro
    '
    '
    Dim zelda As Integer

    zelda = Lookup()

    Sheets("RawData").Select
    Range("A" & zelda).Select (highlighted row in yellow)
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RawData").Select
    Range("C" & zelda & " :G" & zelda).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RawData").Select
    Range("J" & zelda & " :U" & zelda).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("RawData").Select
    Range("V" & zelda & " :X" & zelda).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("C26").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("RawData").Select
    Range("X" & zelda & " :Y" & zelda).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("C33").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True      

'--------------------Load Comments------------------------------------------

       Sheets("RawData").Select
    Range("AA" & zelda & " :AL" & zelda).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("RawData").Select
    Range("AM" & zelda & " :AO" & zelda).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("E19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("RawData").Select
    Range("AP" & zelda & " :AQ" & zelda).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Evaluation Form").Select
    Range("E24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

'----------------------------------------------------------------------------
    Range("E1").Select

End Sub

Function LookUp() As Integer

Dim NameAgent As String
Dim EvalID As Integer
Dim nrow As Long
Dim ncol As Long
Dim i As Long

' Look Up Values ---------------------

    Sheets("Evaluation Form").Select
    NameAgent = Range("D1").Value
    EvalID = Range("D6").Value

'------------------------------------
Sheets("RawData").Select
nrow = Cells(Rows.Count, 1).End(xlUp).Row


For i = 1 To nrow
     If NameAgent = Cells(i, 1).Value Then

        If Cells(i, 4).Value = EvalID Then

        LookUp = i

        End If
    Else
End If
Next i

End Function

Я использовал этот же макрос во многих рабочих книгах, и, в частности, этот работает неправильно. Любая помощь будет принята с благодарностью.