Sumar y dividir en horizontal

[sprit36]

Buenos días, tengo un archivo con muchos registros que necesito una macro para sumar algunas celdas y además una vez se haya sumado dividir dos celdas.

https://ibb.co/GtPhHTg

[Antoni]

Esto se puede hacer con fórmulas, no hace falta una macro.

En cualquier caso debes subir un archivo con unos pocos registros para poder probar.

[JSDJSD]

Private Sub CommandButton1_Click()
With Hoja1
    For cont = 2 To .Range("A" & Rows.Count).End(xlUp).Row
        .Cells(cont, 8) = Application.WorksheetFunction.Sum(Range(.Cells(cont, 3), .Cells(cont, 6)))
        .Cells(cont, 9) = .Cells(cont, 8) / .Cells(cont, 7)
    Next cont
End With
End Sub

Con esto puedes probar creando un botón y suponiendo que los datos los tienes en la hoja1, de todos modos si puedes subir tu archivo como dice el Maestro Antoni mejor que mejor

[sprit36]

JSDJSD Muchas gracias por la ayuda. Es justo lo que necesitaba. Solucionado.