title: copy and paste formulas quickly
body: <p>I have been trying to write a simple code that copies the value from one cell and paste its formula into all the cells in one column (There are several cells, around 3000). The code works, but it takes around 30 min to run, so it's not ok for me. I also tried to let the value of the formula without "=" and then use the replace command, but it does not work as well. Anyone could help me with that in order to run the macro in 1 min? This is the part of my code that I try to do that:</p>
  
  <pre><code>sub copy_paste
  
  Worksheets("Formatar").Range("H1:L1").Copy
  Worksheets("Formatar").Range("H3").PasteSpecial xlValue
  Worksheets("Formatar").Range("H3:L3").Copy
  Range(Selection, Selection.End(xlDown)).Select
  Selection.PasteSpecial xlFormulas
  
  end sub
  </code></pre>