Excel VBA to hide zero/blank legends from DYNAMIC CHARTs

Hello All,
This request is continuation of below post. After getting a wonderful solution, now i am looking to hide zero/blank legends from DYNAMIC CHART of sheet "Charts" . This chart gets updated based upon name chosen from cell 'D3' drop down and has different legend set to each name.
https://www.excelforum.com/excel-for...ed-ranges.html

The real difficulty, I think, with automating something like is not in deleting the legend entries, but in restoring the deleted legend entries. Microsoft did not provide a simple way to restore a legend entry once deleted. You essentially are forced to delete the legend entirely and then recreate the legend. So the first step in the procedure will be to remove the legend and recreate it.
Do any excel experts has ready VBA code to achieve this..? Please please help me with the code, i have been struggling for this.

Many Thanks