VB Code to convert Quarter data into Monthly data

Hello:

Please refer to attached file.
I have Quarterly Gross Earning report for employees as shown.
Data shows 2nd Qtr ending (6/30/2020) and 3rd Qtr Ending (9/30/2020).

I need VB Code to split this data into Monthly instead of Quarterly by
dividing 3 each earning in column D as example

Data shows 2nd row,
6/30/2020 Alyssa Mccoon $2990.31
So split this data as
4/30/2020 Alyssa Mccoon $976.77
5/31/2020 Alyssa Mccoon $976.77
6/30/2020 Alyssa Mccoon $976.77

Manually completed data is shown in Sheet2

Please let me know if you have any questions.
Thanks.

R

Originally Posted by rmomin

Manually completed data is shown in Sheet2

Hello,

so the reason why so many dates errors or your initial explanation does not match your expected result ?!

Hello
Thanks to all
I will be using PCI's code

R