Capture and calculate data based on work week in VBA or formulas

Hi,

I have a requirements to capture the data and calculate the qty based on the defined work week. May i request your assistance or
idea on how to to this in vba macro or a formulas. I'll giving a sample data as reference. In my sample data i have already the formulas
but i wanted to automate the work week calculation specially if the number of days in a month has been change. thank you in advance.

btw, the values of every column is came from other worksheet. i copy paste this data as my sample.

For ex.

Today is July and it has 31 days, the 31 days will be distributed to the defined workweek and
calculate the contents of the coresponding column.

here is the distribution of columns per week as reference.
(31 days)
wk1 - Day1 to Day8 (8 colums)
wk2 - Day9 to Day16 (8 colums)
wk3 - Day17 to Day24 (8)
wk4 - Day25 to day 31 (7) columns

(30 days)
wk1 - Day1 to Day8 (8 colums)
wk2 - Day9 to Day16 (8 colums)
wk3 - Day17 to Day23 (7)
wk4 - Day23 to day 30 (7) columns