title: Copy formulas from a range to variant array
body: <p>I want to copy all the range's contents in the array and then back to the range.</p>
  <pre><code>Dim arr As Variant
  Dim r as Range
  Set r = ActiveSheet.ListObjects(1).DataBodyRange
  arr = r.Value2
  r.Value2 = arr
  </code></pre>
  <p>I found out that statement <code>arr = r.Value2</code> doesn't store equations but their values in an array. So after the statement <code>r.Value2 = arr</code> does it's job, equations are gone form the worksheet.</p>
  <p>How can I store equations in array and then copy them back?</p>