I got an error: (Run-time error '1004': Application-defined or object-defined
error).

Thanks,

Sub Avg3Row()

Dim OutputRow As Integer

OutputRow = 1

For Row = Selection.Row To ActiveSheet.UsedRange.Rows.Count Step 30
Worksheets("Output").Cells(OutputRow, 1).Formula = "=average(Input!B" &
Row - 3 & ":B" & Row & ")"
OutputRow = OutputRow + 1
Next Row
End Sub

It's better not to use Row as the count variable, given that this a reserved
word - make it myRow or some-such, and DIM it at the beginning of the macro.

Also, if you have selected cells on rows 1 to 3, then you will be trying to
set up an average for cells B-2, B-1 or B0 - such cells don't exist !!

Hope this helps.

Pete


"bioyyy" wrote in message
...
I got an error: (Run-time error '1004': Application-defined or
object-defined
error).

Thanks,

Sub Avg3Row()

Dim OutputRow As Integer

OutputRow = 1

For Row = Selection.Row To ActiveSheet.UsedRange.Rows.Count Step 30
Worksheets("Output").Cells(OutputRow, 1).Formula = "=average(Input!B" &
Row - 3 & ":B" & Row & ")"
OutputRow = OutputRow + 1
Next Row
End Sub