title: Copy array formula with VBA
body: <p>I have the following Excel table:</p>
  
  <pre><code>          A                 B                    C                    D                       E
  1                     Purchase Price        Sales Price      Purchase Price &gt; Sales Price
  2     Product A            50                    40        ={COUNT(IF(ISNUMBER(B2:B10),IF(B2:B10&gt;C2:C10-10,B2:B10)))}
  3     Product B            60                    65
  4     Product C            80                    60
  5     Product D            10                    20
  6     Product E            50                    30
  7     
  </code></pre>
  
  <p>Now I want use the following Macro to copy the formulas from cell B2:D6 into cell E2:G6:</p>
  
  <pre><code>Sub Array_Formula()
  Sheets("Sheet1").Range("E2:G6").Formula = Sheets("Sheet1").Range("B2:D6").Formula
  End Sub
  </code></pre>
  
  <p>This macro copies the formulas from cell B2:D6 into cell E2:G6. However, it does not copy the { } of the formula in cell D2 so it does not stay as an array.</p>
  
  <p>How do I have to change my macro so it copies the formula including the array?</p>
  
  <p>Thanks for any help.</p>