Convert Sumifs to vba code with loop

Guys thank you for your time,

Both of them work in their way but not exactly what I need, my problem is that I can't really understand or make changes to the code(sorry for my poor vba skills, I just started)

As for the criteria1 and 2 , this have been extracted from code1+code2 columns aiming to get as a result all the unique pairs. I have already done it so no need for changes there (always a better/efficient way to do it would be good to know)

My target is to read the already made criteria from G and H columns and do the sums. After filling the cell go to next cell of column K and do that again (based on the new Criteria).

IF(AND(HaveTime=1;HaveGoodMood=1);"please add some description on the code referring to what each part does";"I will try harder and find my way out, Thank you so much for your time")