you didn't mention what the output should be


Sub SaveAvg6()

Set rngSource = ThisWorkbook.Sheets(1).Columns(2)
Set wbNew = Workbooks.Add
Set rngOutput = wbNew.Sheets(1)
j = 1

For i = 2 To 2500 Step 6

rngOutput.Cells(j, 1) =
Application.WorksheetFunction.Average(rngSource.Ce lls(i).Resize(6, 2))
j = O + 1

Next i

End Sub







"saziz" wrote in
message ...

Hi Folks,
I have a sheet with data in col. B & C 2500 rows.
I do average on every 6th. row down until 2,500 rows.
I find myself doing this quite often. Wondering if someone can help
me write a VBA code.

first range value is (B2:C7) and then next would be further 6 rows down
starting from (B8:C13) until where the data ends (about 2500 rows)

Thank you for your help.
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile:
http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=498143