Say that you want to average columns A through D with the numbers starting
in row 2:
Sub PutInAverages()
Dim myRow As Long
myRow = Cells(Rows.Count,1).End(xlUp).Row
Cells(myRow +1,1).Resize(1,4).Formula = "=AVERAGE(A2:A" & myRow & ")"
End Sub
HTH,
Bernie
MS Excel MVP
"lostinexcel" <(E-Mail Removed)> wrote in message
news:4D4ADC21-3C5F-4ED8-9B9F-(E-Mail Removed)...
> This is a really simple one for most of you, but I'm trying to do the
> average
> of one column, put the average in the cell below the column, then copy
> that
> average across several other columns to the right.
|