Visual Basic - Como Hacer

Tengo un problema,estoy practicando programacion con macros tengo un programa q suma los numeros de una columna y luego les saca el promedio;el problema surge cuando trato de pegar las formulas en las celdas desde él editor de macros,la linea de codigo es la sgte:

' Establecer la casilla inicial del rango a sumar
Casilla_Inicial = "A1"
.
.
.
.
' Establecer la casilla final del rango a sumar.
' Coger la dirección de la casilla activa, la última
Casilla_Final = ActiveCell.Address
.
.
.
.
' Poner en la casilla activa la función SUMA
ActiveCell.Formula = "=Suma(" & Casilla_Inicial & ":" & Casilla_Final & ")"
ActiveCell.Offset(1, 0).Activate

' Poner en la casilla activa la función promedio
ActiveCell.Formula = "=Promedio(" & Casilla_Inicial & ":" & Casilla_Final & ")"

Lo q sucede es q el la parte donde se asigna el valor de la variable
Casilla_Final= ActiveCell.Address

se asigna la direccion de la celda pero de la sgte forma:(por ejemplo) si la casilla final fue
A5 se guarda $A$5 y esto Excel en la formula no lo reconoce pues deberia ser solamente A5 lo q aparece en la celda.

¿Alguien podria ayudarme?

Reemplaza esta línea:
' Establecer la casilla final del rango a sumar.
' Coger la dirección de la casilla activa, la última
Casilla_Final = ActiveCell.Address

Por esta otra:
' Establecer la casilla final del rango a sumar.
' Coger la dirección de la casilla activa, la última
Casilla_Final = Replace(ActiveCell.Address,"$","")

Espero que te sirva.

Saludos.

Gracias me sirvio de mucho