Visual Basic para Aplicaciones - Suma en columna

En Excel, tengo dos columnas que dan la suma en una tercera que hay que crear. El problema es que las columnas que suman A y B no siempre tienen el mismo tamaño, por lo que el rango no puede 'fijarse' sino que debe ser detectado. ¿Podeis ayudarme?

Para detectar el rango haz lo siguiente

Fila =1
Do While not isempty(cells(Fila,Columna))=true
fila=fila+1
loop
fila=fila-1
casilla1=cells(1,columna).Address
casilla2=cells(fila,columna).Address
cells(fila+1,columna).activate
Activecell.Formula="=Sum(" & Casilla1 & ":" & casilla2 & ")"

Columna lo reemplazas por le valor de la columna donde estan los datos, y si el primer valor no esta en la fila 1 entonces no inicializas fila en uno sino en el número que tu quieras.

Saludos

Para detectar el rango haz lo siguiente

Fila =1
Do While not isempty(cells(Fila,Columna))=true
fila=fila+1
loop
fila=fila-1
casilla1=cells(1,columna).Address
casilla2=cells(fila,columna).Address
cells(fila+1,columna).activate
Activecell.Formula="=Sum(" & Casilla1 & ":" & casilla2 & ")"

Columna lo reemplazas por le valor de la columna donde estan los datos, y si el primer valor no esta en la fila 1 entonces no inicializas fila en uno sino en el número que tu quieras.

Saludos

Para detectar el rango haz lo siguiente

Fila =1
Do While not isempty(cells(Fila,Columna))=true
fila=fila+1
loop
fila=fila-1
casilla1=cells(1,columna).Address
casilla2=cells(fila,columna).Address
cells(fila+1,columna).activate
Activecell.Formula="=Sum(" & Casilla1 & ":" & casilla2 & ")"

Columna lo reemplazas por le valor de la columna donde estan los datos, y si el primer valor no esta en la fila 1 entonces no inicializas fila en uno sino en el número que tu quieras.

Saludos