title: Replace Match with Find and paste all found values into new rows
body: <p>I have a table in Sheet 2 that consists of some data. In column A there may be value: "Quota number XYZ". It may occur more than once, and it may not occur at all.</p>
  
  <p>I would like to find all Quota Numbers and paste them in new rows in Sheet 1.</p>
  
  <p>How the macro works:</p>
  
  <p>I have list of numbers in column A in Sheet 1. External data is pasted to Sheet 2. Macro looks for "<em>Quota number:</em>" in Column A in Sheet 2, but since I use Match it returns only 1 value and copies it to column that is next to number in Sheet 1.</p>
  
  <p>How it looks like:</p>
  
  <pre><code>Value Match  
  45678 0110  
  12345 0990   
  34567 0550  
  </code></pre>
  
  <p>I would like to find "<em>Quota number:</em>" in Sheet 2, and for first value found - copy it to next column. But for second and more values found I need to have extra row in Sheet 1. Example:</p>
  
  <pre><code>Value Match  
  45678 0110  
  12345 0990    
  12345 0770   
  34567 0550 
  </code></pre>
  
  <p>The codes currently looks like that:</p>
  
  <pre class="lang-vb prettyprint-override"><code>ws2.Activate 
  
  For Each c In ws1.UsedRange.Columns("A").Cells
      If Not IsError(Application.Match("*Quota number:*", Range("A:A"), 0)) Then
          Quota = Application.Match("*Quota number:*", Range("A:A"), 0)
          QuotaVal = ActiveSheet.Cells(Quota, 1)
  
          ws1.Cells(c.Row, 2).Value = QuotaVal
      End If
  Next c
  </code></pre>
  
  <p>I was trying to figure it out, but I have no idea how to make it so it adds new rows on 2nd and further matches, and how not to make the loop to loop itself (new row added so the new c appears).</p>