Hi Comunity,
it is crazy, I have a table with a set of data sarting in row2, now i want to take the column B and insert the average value at the end of the table in column b.
Sub Makro1()
Dim LR As Long
LR = Range("B3" & Columns.Count).End(xlUp).Column
Range("B3").End(xlDown).Offset(1, 0).Select
Activecell.Formula = "=average("B3:B" & LR)"
End Sub
... obviously the last code it wrong. but I can't figure out why.
Thanks for your support, Jens
|