avergae formula for defining range. please help me

[rvkcools]

Please help me

I want to write a average function from my activecell...

Range starts from activecell.offset (0, 2) to last right cell data.

Please help me .. thank you

 

[Michael M]

Maybe, assuming your average is in row 1

Sub MM1()
Dim lc As Integer, x As Double
lc = Cells(1, Columns.Count).End(xlToLeft).Column 'change the row number to the row you need instead of 1
x = Application.WorksheetFunction.Average(Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, lc)))
MsgBox x
End Sub

 

[rvkcools]

Maybe, assuming your average is in row 1

Sub MM1()
Dim lc As Integer, x As Double
lc = Cells(1, Columns.Count).End(xlToLeft).Column 'change the row number to the row you need instead of 1
x = Application.WorksheetFunction.Average(Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, lc)))
MsgBox x
End Sub

this is my data in a sheet

b-column c-colum d e f g h i j k

Associate Name	Client Name	YTD		W1	W2	W3
John				9100.00%	100.00%	100.00%
Edwin				123.21%		100.00%
Lewis				120.59%		100.00%
David				114.72%		100.00%
roger				110.57%	100.00%	100.00%
edwin				95.44%	100.00%	100.00%

<tbody>
</tbody>

in "d" column(YTD).... i want to use "average" for wk1 to current week..... my current changes based on the week data...please help me and employee name might increase or decrease so it should run do until employee data is blank.....

note after "d" coulmn, "e" column is blank...Please help me

 

[Michael M]

So, is the number of columns going to increase over time ?