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

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.

Editado el el 26 de mayo3 años por Antoni

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

Editado el el 26 de mayo3 años por JSDJSD

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