Ttykuu

Ive got some code which converts data from hours to days. I am wondering if there are any improvements which could be made to make it more efficient or any other improvements in general that could be made? other information:for t = Int((n - 1) / 24) + 1, the n is the amount of rows of data. u is the first cell of the hourly data

u = Int(Worksheets("Hydrological_Data").Cells(6, 1))
t = Int((n - 1) / 24) + 1

Dim rain_recalc(), evap_recalc(), obs_q_recalc(), sim_q_recalc() As Double
Dim rain_d(), evap_d(), available_w_d(), interflow_d(), overflow_d(), obs_q_d(), sim_q_d() As Double


ReDim rain_recalc(t, 24), evap_recalc(t, 24), obs_q_recalc(t, 24), sim_q_recalc(t, 24) As Double

ReDim rain_d(t), evap_d(t), available_w_d(t), interflow_d(t), overflow_d(t), obs_q_d(t), sim_q_d(t) As Double

counter = 0
total_obs_q = 0

For w = 1 To t
 rain_d(0) = 0
 evap_d(0) = 0
 obs_q_d(0) = 0
 sim_q_d(0) = 0
 For s = 0 To 23
 rain_recalc(w, s) = rainfall(counter)
 rain_d(w) = rain_d(w) + rain_recalc(w, s)
 evap_recalc(w, s) = evaporation(counter)
 evap_d(w) = evap_d(w) + evap_recalc(w, s)
 obs_q_recalc(w, s) = obs_q(counter)
 obs_q_d(w) = obs_q_d(w) + obs_q_recalc(w, s)
 sim_q_recalc(w, s) = simulated_q(counter)
 sim_q_d(w) = sim_q_d(w) + sim_q_recalc(w, s)
 counter = counter + 1
 Next s

 total_obs_q = total_obs_q + obs_q_d(w)

 Worksheets("Hydrological_Data").Cells(5 + w, 7) = u + w - 1
 Worksheets("Hydrological_Data").Cells(5 + w, 8) = rain_d(w)
 Worksheets("Hydrological_Data").Cells(5 + w, 9) = evap_d(w)
 Worksheets("Hydrological_Data").Cells(5 + w, 10) = obs_q_d(w)
 Worksheets("Hydrological_Data").Cells(5 + w, 11) = sim_q_d(w)
Next w