average certain blocks of cells VBA

Can you post your function?

Don't forget to use code tags - you just highlight the code and click on the #.

thanks!

Dim i As Integer
Dim avg As Double

For i = 2 To lrownew
avg = (Range("i" & i).Value + Range("i" & i + 1).Value + Range("i" & i + 2).Value + Range("i" & i + 3).Value) / deg
Range("n" & i).Value = avg
Next i

this "works", as long as deg = 4 which is not true

i simply can't figure out how to just do the average every nth block

Is this something like what you want?

Sub Ferday(): Dim lrownew As Long, i As Long, deg As Single, avg As Double
Dim WF As WorksheetFunction: Set WF = WorksheetFunction
lrownew = 701: deg = 3#
For i = 2 To lrownew
avg = WF.Sum((Range("I" & i).Resize(1, 4).Value)) / deg
Range("N" & i).Value = avg
Next i
End Sub

Can you post your whole code? - I had to make some assignments so it would run for me.

i've currently got it working with a bit of a bodge (it still won't average just the grouping, but the counting was really easy)

it's really fast right now even with 20000 lines, so i'm happy but i'm always interested in learning new and better ways of doing this stuff for as often as i have to use it

thanks so much for your time

lrownew is just the last row number of data, since the user can paste any amount
deg is based on the entered diameter of the object, and just translates the circumference into 10 degree chunks which is what i'm trying to average over (so they aren't important to the function, they are entered data)

Dim i As Long, avg As Double, j As Long, avg2 As Double
Dim WF As WorksheetFunction: Set WF = WorksheetFunction
For i = 2 To lrownew
avg = WF.Sum((Range("I" & i).Resize(deg, 1).Value)) / deg
Range("k" & i).Value = avg
avg2 = WF.Sum((Range("J" & i).Resize(deg, 1).Value)) / deg
Range("l" & i).Value = avg2
Next i

For j = 2 To lrownew Step deg
Sheet2.Range("a" & j).Value = Range("k" & j).Value
Sheet2.Range("b" & j).Value = Range("k" & j).Value + 10
Sheet2.Range("c" & j).Value = Range("l" & j).Value
Sheet2.Range("d" & j).Value = Range("l" & j).Value + 10

Next j