title: Macro giving out error "Run-time error 1004: Method 'Range' of object'_Global' failed
body: <pre><code>Sub Load()
  
      '
      ' Load Evaluation Macro
      '
      '
      Dim zelda As Integer
  
      zelda = Lookup()
  
      Sheets("RawData").Select
      Range("A" &amp; 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" &amp; zelda &amp; " :G" &amp; 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" &amp; zelda &amp; " :U" &amp; 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" &amp; zelda &amp; " :X" &amp; 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" &amp; zelda &amp; " :Y" &amp; 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" &amp; zelda &amp; " :AL" &amp; 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" &amp; zelda &amp; " :AO" &amp; 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" &amp; zelda &amp; " :AQ" &amp; 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
  </code></pre>
  
  <p>I have used this same macro in numerous workbooks and specifically this one is not running correctly. 
  Any help will be greatly appreciated.</p>