problema sumatorio vb Excel

[knfu]

buenas,
la idea es que en la columna A están escritos datos ordenados, de manera que serán algunos iguales.
Cuando encuentre el 1er dato distinto quiero, que vuelva a la fila anterior (último dato igual) y que haga un sumatorio en esta misma fila, en la columna j de los datos comprendidos entre I2 y la I ( y la fila en la que estamos trabajando)
El código que he generado hasta el momento es el siguiente:
__________________________
Dim valor As String 'valor celda A2
Dim suma1 As Integer 'valor sumatorio pesos parciales 1
Dim celda1 As String 'posición de la última celda del primer sumatorio de total partida

Range("A2").Select
valor = Range("A2").Value

Do While ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 8).Select

celda1 = ActiveCell.Address


ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = "=sum(I2:celda1)"
________________

Me funciona todo hasta el parámetro celda1, si le pongo por ejemplo I8 si funciona el sumatorio.

Teneís una idea de cómo resolverlo? muchas gracias