title: Find variable and store values
body: <p>I need to find a text string and store the item names below the text string to put in a different location in the sheet</p>
  
  <p>Example I want to find "Description" and store all the items below it to use later in the macro</p>
  
  <p><a href="https://i.stack.imgur.com/BE1Nt.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/BE1Nt.png" alt="enter image description here"></a></p>
  
  <p>And place them in B1 for example</p>
  
  <p><a href="https://i.stack.imgur.com/ZsSIL.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/ZsSIL.png" alt="enter image description here"></a></p>
  
  <p>Here's the code im trying to use but I don't know how to store the Active Range</p>
  
  <pre><code>Sub test()
  
  'find description
  Cells.Find(What:="Description", After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
  
  
  Selection.Offset(1, 0).Select 'Offset after find
  Range(Selection, Selection.End(xlDown)).Select 'Selects to end
  
  Dim DescriptionValues As Range
  DescriptionValues = Active.Range
  
  ActiveSheet.Range("B10") = DescriptionValues 'put stored text starting in B1
  
  End Sub
  </code></pre>