Como convertir esta formula a codigo vba =H7/366*15

Ojalá te sirva, esta seria una forma de hacerlo

Sub Operacion()
y = ActiveSheet.Range("H7").Value
ActiveCell.Value = y / 366 * 15
End Sub

Donde la celda activa sera en donde se imprima el resultado.
Pero necesitas ser más especifica para que quieres utilizarlo.

.

Hola, María

Prueba con esto:

Sub Reform()
With ActiveCell
    .Formula = "=H" & .Row & "/366*15"
    .NumberFormat = "0"
End With
End Sub

Esto coloca esa fórmula en la celda activa con referencia a la misma fila donde esté.

Si, en cambio quieres que sea solo para la celda H7, reemplaza . Row por 7, pero no creo que sea lo que buscas

Un saludos

Fer

.