«время выполнения 1004: ошибка приложения или объекта» при вычислении среднего числа ячеек

Question

Я пытаюсь вычислить среднее число клеток в цв.

Среднее значение рассчитывается путем определения последней строки с данными. например если первая строка в столбце B с данными - B6, а последняя строка - B24, то среднее значение равно b6: b24 или если последняя строка с данными - B8, то среднее значение должно быть для b6: b8.

Sub average()
'
' average Macro
'

'
Range("B6").Select

lr = Selection.End(xlDown).Row
fr = lr + 1
r = 6
last = -fr + r

Range("B" & fr & "").Select
activecell.formulaR1C1 = "=AVERAGE(R[last]C:R[-1]C)"

End Sub

Когда я запускаю код, он выдает ошибку 1004.

Я тоже пробовал с

activecell.formula = "=AVERAGE(R[last]C:R[-1]C)"

Answer 1

Если у вас есть только текст или данные в столбце B, почему бы просто не усреднить весь столбец:

Application.Worksheetfunction.Average(Activesheet.Range("B:B"))