Sorry, missed the part with the merged cells. The last bit of code does the trick. Keep It Simple Stupid works

Thanks for helping out.