title: Copy all data from column based on condition
body: <p>I've been struggling with this problem for a whole month...</p>
  <p>Here is the point. I've got a sheet in excel called <code>Amounts</code> where there are many datas listed under <code>10</code> columns from cell <code>A2</code> to cell <code>J2</code>. The last colum can vary day to day. There are headnames above those different datas that allows me to know the type of data.</p>
  <p>Anyway, there are many columns where the header start with the following value <code>Amount of (date)</code>. I want to make a code that;</p>
  <ol>
  <li>Allows me to search automatically for all the columns'name that starts with the value <code>Amount of</code></li>
  <li>Copy all of the data below (from the first data until the last one). The range of datas under each column can vary from day to day.</li>
  <li>And finally paste each of the range data copied under the column header on other sheet and in one single column (starting in cel(1,1)).</li>
  </ol>
  <p>Here's how my current code looks like;</p>
  <pre><code>Dim cel As Range
  With Sheets(&quot;Amounts&quot;)
      Worksheets(&quot;Amounts&quot;).Activate
  
      For Each cel In Range(&quot;A2&quot;, Range(&quot;A2&quot;).End(xlToRight)
          If cel.Value Like &quot;Amount in USD *&quot; Then
              cel.Offset(1).Select
              Range(Selection, Selection.End(xlDown)).Select
                          
              Selection.Copy Worksheets(&quot;Pasted Amounts&quot;).Range(&quot;A2&quot;)
          End If
      Next cel
  </code></pre>
  <p>Could you please help me with this...? I feel like the answer is so obvious like the nose in the middle of my face.</p>