Visual Basic para Aplicaciones - Optimizar Macro Funcion Solver Excel

Cada celda corresponde a una hora del dia y tengo que realizar este proceso para los 365 dias del año. No se como optimizarlo, si con un while o bien un If, ¿Podrian ayudarme? Ando un poco pegado con la programacion.
Gracias¡¡¡¡¡

Sub Iteracion()

' Iteracion Macro
' Macro grabada el 25/11/2009 por Mi

'PRIMERA CELDA
SolverAceptar definirCelda:="$M$2", valorMáxMín:=1, valorDe:="0", _
celdasCambiantes:="$K$2"
SolverAgregar referenciaCelda:="$K$2", relación:=2, Formula:="$M$2"
SolverAceptar definirCelda:="$M$2", valorMáxMín:=1, valorDe:="0", _
celdasCambiantes:="$K$2"
SolverResolver

'SEGUNDA CELDA
SolverAceptar definirCelda:="$M$3", valorMáxMín:=1, valorDe:="0", _
celdasCambiantes:="$K$3"
SolverAgregar referenciaCelda:="$K$3", relación:=2, Formula:="$M$3"
SolverAceptar definirCelda:="$M$3", valorMáxMín:=1, valorDe:="0", _
celdasCambiantes:="$K$3"
SolverResolver

'TERCERA CELDA
SolverAceptar definirCelda:="$M$4", valorMáxMín:=1, valorDe:="0", _
celdasCambiantes:="$K$4"
SolverAgregar referenciaCelda:="$K$4", relación:=2, Formula:="$M$4"
SolverAceptar definirCelda:="$M$4", valorMáxMín:=1, valorDe:="0", _
celdasCambiantes:="$K$4"
SolverResolver


End Sub