title: Loop through cells and add to a range
body: <p>How would I loop through cells B1 to J1 and add them to a range if they meet a certain criteria. For example.</p>
  
  <pre><code>Dim Range1 As Range
  For i = 1 to 9
  If Range("A1").Offset(1,i) meets a certain criteria Then
  **Add that cell to Range1**
  End If
  Next i
  </code></pre>
  
  <p>I'm not sure how to approach the part of adding certain cells to Range1.</p>
  
  <p>Thanks for the help!</p>