Delete Columns Macro, Based on Creating a Fiscal Year, Based on Today's Date

The doc has several columns such as types of fruit and location picked, then about 15 years, by month, of sale price for the fruit.

I'd like to create a macro that checks the current date, then removes all columns outisde of the current fiscal year, July to June. So essentially:

IF today is May 16th, 2018, Remove all columns with month and year between July 2017 - June 2018

The trick is that we want to keep the original fruit type and location columns. So, only removing the SALE PRICE columns that don't have the current date's fiscal range. (these columns are fixed, luckily, E-BE)


Ideas?

I'd suggest setting up a second sheet that copies only the columns that you want to keep. If this is of interest, please upload a small desensitized sample spreadsheet showing the layout of the data that you are working with as well as an example of what you expect as an outcome.
To upload a sample spreadsheet click on the GO ADVANCED button below the Quick Reply window and then scroll down to Manage Attachments to open the upload window.
Let us know if you have any questions.

This proposed formula based solution changes the way that dates are placed into the cells in row 1. Dates are typed in as actual dates for the first of each month (i.e. 6/1/18) then custom formatted yyyy - mmm
On Sheet 2 cell B1 displays a drop down with choices of either Current or Next
Cells A2:D8 are populated using: =IF(Sheet1!A1<>"",Sheet1!A1,"")
Cell F2 is populated using:

Formula:

Please Login or Register  to view this content.

- Note that cell C1 has been manually filled so that you can test. Once you have tested, cell C1 could be populated using: =TODAY() or the references to C1 in the formula in cell F2 could be replaced with TODAY() so that it reads:

Formula:

Please Login or Register  to view this content.

Cells G2:Q2 are populated using: =DATE(YEAR(F2),MONTH(F2)+1,1)
Cells F3:Q8 are populated using:

Formula:

Please Login or Register  to view this content.

Let us know if you have any questions.