Maybe try this
Sub copyvalues ()
  Dim f As Range
  Dim i As Long
  
  With Sheets("Q1")
    Set f = .Range("E:E").Find("#N/A", , xlValues, xlWhole, , , False)
    If Not f Is Nothing Then
      i = f.Row - 1
      .Range("A" & i & ","E" & i).Copy 
      Sheets("Summary").Range("C3" & “C9” ).Paste
    End If
  End With
End Sub
Mind you, most of this code will look very familiar to you Tactful? I mean after all its from MrExcel where you were receiving help, that you failed to mention.