average of the range

[saziz]

Hi All,

I am trying to get an average of a set of data input by operator.
I am not familiar with cyntax for average of the range..

Sub Average()
Dim mynum As Integer
Dim lRow As Integer
Dim Arange As Range

ActiveSheet.Range("A2").Value = InputBox("No. Pls?")
'ActiveSheet.cell("A2").Value = mynum
ActiveSheet.Range("A2").Select
Selection.Copy
Range("A3").Select
Selection.Insert Shift:=xlDown

lRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Now I want to say at the last row to do an average of the whole rang
which starts from cell A2

Appreciate your help.
Thank you
syed Azi

 

[Dave Peterson]

dim lRow as long
with activesheet
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.cells(lrow+1,1).formular1c1 = "=sum(r2c:r[-1]c)"
end with

(one of the nice things about using the .formular1c1)

 

[saziz]

Thank you Dave. One more thing I added to my list of "things learnt
today"
using the .formular1c1..
Thanks
Syed