Calcular Promedio con rango dinamico

[Luis Aquino]

Hola cracks!! 

Estoy tratando de generar una macro que calcule el promedio de mis datos, pero en vez de que sea un rango fijo de X2:X8431 sea hasta el ultimo valor que tenga la columna X es decir que pueda variar ya que a veces son mas datos o a veces menos, les dejo el código que tengo actualmente con rango fijo.

Range("X2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[8431]C)"

 

He tratado con este pero no funciona:

Dim last_row As Integer

last_row = Cells(Rows.Count, "C").End(xlUp).Row - 1

Range("X2").Select

ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[last_row]C)"

 

Les agradezco mucho su ayuda si tienen alguna idea se las agradecería muchísimo!

[Antoni]

A ver así:

ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[" & last_row & "]C)"

 

[Luis Aquino]

Correcto!! enorme como siempre Antoni