problema sumatorio vb Excel

[knfu]

buenas!!!!
después de darle muchas vueltas he conseguido lo que quería, cuelgo el código por si le sirve a alguien. De todas formas muchas gracias por el foro.
Dim valor As String 'valor celda A2
Dim suma1 As Integer 'valor sumatorio pesos parciales 1
Dim celdax As Integer 'posición de la fila de la última celda del primer sumatorio de total partida
Dim celday As Integer 'posición de la columna 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

ActiveCell.Offset(0, 1).Select

celdax = ActiveCell.Row
celday = ActiveCell.Column

suma1 = Application.WorksheetFunction.Sum(Range(Cells(2, 9), Cells(celdax, celday)))

ActiveCell.Value = suma1

ActiveCell.Offset(0, 1).Select