vba – How to improve this code that converts hourly data columns data daily?

I have a code that converts the data from hours to days. I wonder if improvements could be made to make it more effective or if other improvements in general could be made? other information: for t = Int ((n – 1) / 24) + 1, n is the quantity of data rows. 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 TB
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) = precipitation (meter)
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
``````