title: Excel VBA AVERAGE(variable range)
body: <p>I'm trying to use an Excel formula that averages the last 12 month values and compares it to the current month value (in this case <code>RC[-2]-RC[-1]</code> and a 30% variance). </p>
  
  <p>The issue is that the row changes, it is nested in a loop. </p>
  
  <p>Below the code:</p>
  
  <pre><code>Dim i As Long 
  Dim o As Double 
  Dim p As Double
  
  'some code here
  
  For i = 1 To n
      Selection.Value = "=RC[-2]-RC[-1]"
      o = ActiveCell.Value
      p = Application.Formula.Average(Range("RC[-13]", "RC[-2]"))
      If (o &gt;= (p + p * 3 / 10)) Or (o &lt; (p + p * 3 / 10)) Then
          ActiveCell.Font.Color = vbRed
      End If
      ActiveCell.Offset(1, 0).Select
  Next i
  </code></pre>
  
  <p>Any ideas on how to define that average without a separate average function ?</p>