title: Macro code to copy a cell and paste it to the next 2 cells
body: <p>Trying a write a macro to copy a cell and paste it to the next three cells.Then copying the fifth cell and paste it to the 6th, 7th and 8th cell in the row.I have a lot of data in the row that need to be copy-pasted in this way. I have something like this so far.</p>
  
  <pre><code>    Sub copycell()
      for i= 1 to 1000
  
      Cells(1, i).Select
      Selection.copy
      Cells(1,i+1).Select 
      Selection.Paste      
      end if 
      End sub   
      next i
  </code></pre>