Looking for Pair of Values in Same Column - VBA

I am looking into how I can look for a pair of values in one column that are in series (1 and 0), and take the date value on the same row where the 0 is, and copy to the next available row in another column. This will loop until the end of the column where the 1s and 0s are. It should look like the picture below.

Any help will be appreciated. Thanks! I am hoping to do this in VBA.


Capture4.PNG


Thanks again!