title: selection to copy and paste error
body: <p>I am currently trying to find the data I need by find as I do not know where it is located and then copy the data down the column onto another sheet. I need to do this multiple times. </p>
  
  <p>However, I keep getting the error of Object Variable or With block Variable not set on my second find, it's on the line: </p>
  
  <pre><code>.range(Selection, Selection.End(xlDown)).Select
  </code></pre>
  
  <p><strong>My Code</strong></p>
  
  <pre><code>Dim ran, r As range
  With Sheet2
      Set ran = .Cells.find(What:="User Defined Label 4", LookIn:=xlValues, LookAt:=xlWhole)
      ran.Select
     .range(Selection, Selection.End(xlDown)).Select
      Selection.Copy
      Sheet9.range("A1").PasteSpecial
  
      Set r = .Cells.find(What:="V Align", LookIn:=xlValues, LookAt:=xlWhole)
      r.Select
      .range(Selection, Selection.End(xlDown)).Select
      Selection.Copy
      Sheet9.range("B1").PasteSpecial
  End With
  </code></pre>