Conditional copying in dynamic range

Hi all,

In the attached file, the A column consists of quarters. Between some of these there is an error value #Name?, which is replaced with 1 in column B. In column D you find ISIN codes. I want to format this file in such a way that for every 1 in column B a new ISIN is copied in column C. So in C2 until C7 I want to place the value of D2, in C8 till C14 I want to place the value of D3 and in C15 until C69 the value in D4. I've tried to come up with something in VBA, but I'm a bit stuck at the moment. Is there somebody here who can help out?

Thanks in advance