title: VBA Find #N/A value and copy adjacent cells to another sheet and loop
body: <p>Good day to everyone,</p>
  
  <p>I have been trying to find an answer here that would fit my problem but I have been unsuccessful. I am using FIND to search column F for cell with <code>#N/A</code> value and copy adjacent cells to another "Sheet2" at the end of the column A. I have made the following code that works but my problem is I want to make it to loop to find the next cell with <code>#N/A</code> value till find all.</p>
  
  <pre><code>Sub Find()
      Dim SerchRange As Range
      Dim FindCell As Range
      Set SerchRange = Range("F:F")
      Set FindCell = SerchRange.FIND(What:="#N/A", _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False)
  
      If FindCell Is Nothing Then
          MsgBox "Nothing was found all clear"    
      Else
          FindCell.Select
          ActiveCell.Offset(0, -3).Resize(, 3).Select
          Selection.Copy
          Sheets("Sheet2").Select
          Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
          ActiveSheet.Paste
      End If
  End Sub
  </code></pre>