title: Average 3 values loop in 1 column?
body: <p>I need some help with my code. Basically, I just need to average 3 values in a column and continue that pattern until there are no more values. Can someone please help? </p>
  
  <p>I want to average for example, A1:A3, A4:A6..and so forth until there are no more values. The average result would be in B1:B2. </p>
  
  <p><a href="https://i.stack.imgur.com/w4NsZ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/w4NsZ.png" alt="enter image description here"></a></p>
  
  <pre><code>Sub DLSaverage()
  Dim i As Long, j As Long, k As Long, l  As Long, m As Long, myRange As Range
  
  Sheets("DLS Data").Select
  i = 2
  j = 3
  k = 4
  
  Do While Cells(i, 3).Value &lt;&gt; ""
      'l = Cells(i, 2).Value
      'm = Cells(k, 2).Value
  
      'Cells(j, 22).Value = [Average (l : m)]
      i = i + 3
      j = j + 1
      k = k + 3
  Set myRange = Range("L" &amp; i &amp; ":L" &amp; k)
  Cells(j, 22).Value = Application.Average(myRange)
  
  
  Loop
  
  End Sub
  </code></pre>