Work distribution macro

Hi- I am looking for some assistance with a macro.

Objective - Distribute work evenly between available resources by Inquiry age (Column B). If available resources is 3 and number of inquiries in a age bucket is 7, randomly assign the last inquiry. So if there are 5, 4 day old inquiries, assign 3 to John Doe & 2 to Scooby. Loop thru all age buckets following the same logic. Count available resources which could vary and distribute work accordingly.
If available resource is 1, then assign by age order. This is daily distribution, so value from F & G is also taken into account. A resource is expected to work 6 inquiries per hour in an 8 hour day.work distribution.xlsx

Thanks for your response but I am getting type mismatch error with c_ell.Offset(0, 3) = Avail_ress(I, 1) highlighted.

Thanks for all your help, worked awesome!!