Edit macro to stop filling when data is encountered

Hi, I run the following macro to automatically fill dates on a certain column and paste the values instead of keeping the formula:

Please Login or Register  to view this content.

Basically, it looks for data on column A and fills column D with dates. What I would like to do is to stop filling dates on column D when it encounters data, right now the macro overwrites any data on column D. Here's a brief example of what I would like the macro to do:

Column A	Column D
1	3/27/19
2	3/27/19
3	macro to only fill this cell (blank cell)
4	macro to only fill this cell (blank cell)
5	macro to only fill this cell (blank cell)
6	3/27/19 macro to stop filling this cell and any cell after this, since data is found

Hope I made myself clear, any help is appreciated.