VBA Code to Sort a list with column header activating the code

I have a problem that I think is best solved with VBA code. I have a table (attached) that I want to sort by clicking the Year Date at the top of each column B6 through G6. I found this article https://trumpexcel.com/sort-data-vba/ but I can get it to do any thing adapting this code.

I have provide the results corrected sort from Largest to Smallest in Columns I through M with the cell I want to activate the code on a "click" in green just for clarity but the real table will have the dates all the same color. I also what to sort the "Unit" B column alphabetically.