VBA: Add blank cells based on Specific date

[unknownymous]

Hi Gurus,

Can you share your idea on how to automate this?

I have below data usually long set.

Account	Country	Score	Date
1	France	1000	09/30/2021
2	Norway	500	05/31/2019

I wanted to separate and add 2 blank cells if the date is more than 1 year. Let's say macro will ask for a date, I'll input June 30 2021. Then data will separate accounts that is more than a year (31 May 2019 below)

Final output.

Account	Country	Score	Date
1	France	1000	30-Jun-2021
EXCLUDED
Account	Country	Score	Date
2	Norway	500	05/31/2019

Any thoughts will be much appreciated.