title: Want to split data into multiple sheets based on keyword
body: <p>I am working on macro project that splits data from single sheet to multiple sheets depending on below condition:<br>
  1) Select data from "data1" of row 1 until "data1" from next row appears.<br>
  2) Cut and paste it to new worksheet.<br>
  3) Do this operation until no data left.  </p>
  
  <p>I tried to record macro in excel, but as data is dynamic not able to do it.</p>
  
  <p>Sample input data for reference is as below:
  <a href="http://i.stack.imgur.com/6QPIO.png" rel="nofollow">Sample Input</a></p>
  
  <p>Output data should be:
  Sheet 1 :</p>
  
  <pre><code>Data 1  Data 2  Data 3  Data 4  Data 5  Data 6  Data 7  Data 8  Data 9  Data 10
  Mark    1       5       78      67      23      67      892     62      27
  polo    2       83      156     145     101     145     970     140     105
  Tango   3       88      234     212     124     212     1862    202     132
  </code></pre>
  
  <p>sheet 2:</p>
  
  <pre><code>Data 1  Data 2  Data 3  Data 4  Data 5  Data 6  Data 7  Data 8  Data 9  Data 10
  Laptop  1       83      156     145     101     145     970     140     105
  disk    2       415     12168   9715    2323    9715    865240  8680    2835
  key     3       327     11934   9503    2199    9503    863378  8478    2703
  Buttons 4       56      47      8       9       456     89      15      89
  clips   5       61      125     75      32      523     981     77      116
  mike    6       117     172     83      41      979     1070    92      205
  </code></pre>
  
  <p>sheet 3:</p>
  
  <pre><code>Data 1  Data 2  Data 3  Data 4  Data 5  Data 6  Data 7  Data 8  Data 9  Data 10
  team    1       78      9       0       23      45      67      89      44
  </code></pre>
  
  <p>I am novice in VBA. Any help is appreciated. Thanks.</p>