Inputting a number based on position and skipping to next date

Hi

I am looking for a macro to input numbers into a column based on certain variables. The numbers all need to go into col H and will always be 1. I have explained in the attached as it is too much to explain here.

Thanks