Copy and paste based on date and next empty row.

Hello,
Help me, if you have time. I have source sheet “Yearly Sales”, and destination sheet ”P01” at same workbook. I have a big problem with my VBA code. I posted 2 screenshots and an excel file. When I use code then I get result same as screenshot 1st one (“P01”). But I want result same as screenshot 2nd one (“Sheet1”). How could I get it? Can any person help me?
Advance filter does not work here. Because, source sheet’s row does not paste to destination’s sheet directly. Look at this, source sheet’s column “G” paste to destination sheet’s column “N”, source sheet’s column “I” paste to destination sheet’s column “O”, source sheet’s column “H” no need to copy, source sheet’s column “K” paste to destination sheet’s column “P”, here source sheet’s column “J” no need to copy etc., Source sheet “Yearly Sales” will be update every day from others source book, and same time destination sheet “P01” will be update every day. When I update destination sheet “P01” then “P01” update same as screenshot 1st one ( which I posted), but I want update’s result same as screenshot 2nd one ( which I posted). It will be happen to:
1st March 2021, I will update “P01”, get sales data Row 14 from source,
2nd March 2021, I will update “P01”, get sales data Row 15 from source,
3rd March 2021, I will update “P01”, that day is holiday, and I write manually “holiday” Row 16,
4th March 2021, I will update “P01”, get sales data Row 17 from source, (here all time data will paste to next empty Row).
5th March 2021 I will update “P01”, get sales data Row 18 from source,
6th March 2021, I will update “P01”, get sales data Row 19 from source,
7th March 2021, I will update “P01” manually “No sales” to write Row 20, because that day product “Rice” was not sold.
8th March 2021, same as 7th March, to write Row 21,
9th March 2021, I will update “P01”, get sales data Row 22 from source,
10th March 2021, I will update “P01”, that day is holiday, and I write manually “holiday” Row 23.
So, this way to continue the rest of days of the month.
How it is possible to make it or what is the write code for it? Please, see the “621 current send.xlsm” file. There is VBA code Sheet1 “P01”. Help me, please. Thanks.
Here is Code:

Please Login or Register  to view this content.

Yes, source sheet "Yearly Sales" column "G" there is no word "Holiday". But I want 3rd March sheet "P01" row 16 write manually, after that next day Row 17 will be updated
by clicking "Daily Sales Update" at sheet "P01". You can see my "621 Current ReSend.xlsm" file. Thanks.

I think something is missing here:

Please Login or Register  to view this content.

Can any one help me?

Hi

Please Login or Register  to view this content.

Try to change Name to some thing else like NName or Name_.....

Thanks for your prompt reply. Yes, I made it. Does not help.