Macro

[JavierB]

Hola jorge1980

He teclado algunas líneas de código, a ver si te sirven:

Código:

Sub Sumar()
    contador = 0
    total = 0
    Range("A1").Select ' empezar en celda A1
    ' recorrer las celdas hasta encontrar una vacía
    Do While ActiveCell <> Empty
        total = total + ActiveCell ' sumar el valor de la celda
        ' si la suma es igual o mayor a 40...
        If total >= 40 Then
            contador = contador + 1 ' incrementar contador
            ActiveCell.Offset(0, 1).Select ' desplazr a la derecha
            ActiveCell = contador ' escribir contador en la celda
            ActiveCell.Offset(0, -1).Select ' volver a la izquierda
            total = 0 ' inizializar variable total
        End If
        ActiveCell.Offset(1, 0).Select ' siguiente fila
    Loop
End Sub

Saludos,