Averaging every 5 cells

[macros]

I have an excel sheet with time in column A and scientific data in column B. I would like to get a macro that averages every 5 values/cells. E.G. B2 through B6, B7 through B11, etc

THANK YOU

 

[AnalyticsGuy7]

Sub AverageEm()

Dim Skip As Integer
Dim Looper
Skip = 5

For Looper = 1 To Range(("B1"), Range(("B1")).End(xlDown)).Rows.Count Step Skip

Range("B5").Offset(Looper - 1, 1) = "Average = "
With Range("B5").Offset(Looper - 1, 2).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Range("B5").Offset(Looper - 1, 2) = WorksheetFunction.Average(Range(Cells(Looper, 2), Cells(Looper + 4, 2)))

Next Looper

End Sub

 

[Blade Hunter]

Isn't this a dupe of this question??

http://www.mrexcel.com/forum/showthread.php?t=406237

 

[macros]

Thank you very much for your response!!!