Copy VBA down to next value in active column

Hello, everyone,
I actually have a working code, or so I thought.
But it doesn't work with this table.

Can someone help me figure out what's wrong.
The dates in column A (in the code please active column, it can also be B or C) should be copied down until the next date comes in A and then it should be copied down until there are no more data in the table.

Here is the code:

Please Login or Register  to view this content.

Fehler.png

The table is inserted.

Thank you very much for your help

Hi CoSinus,

How about the below code ?

Please Login or Register  to view this content.

Glad to help & thanks for your feedback

If that takes care of your original request, please mark this thread as 'SOLVED' from the Thread Tools at the top menu & consider Adding Reputation to those who have helped by hitting the Star button under their user names