Deletion of columns based on criteria

I have a calculation worksheet with live formulas that contains data with column headings titled 2020-2028 (9 columns) (B2:J2). 1 year per column.

On an input sheet, I have START and END dates in two different cells (A1,A2)

With that said, I would like a VBA macro that is able to look at the START and END dates on the input sheet, and based on their location in the year range defined by (A1,A2), delete the columns that are out of range on the calculation sheet.

Theoretically, only year columns within the START and END year range will be left on my calculation sheet.

For example: If i had 2022 as my start date and 2024 as my end date, I would expect the macro to delete columns 2020-2021 and 2025-2028.

Any feedback or further direction is greatly appreciated.

Hey Roy,

Please see below for my calculation worksheet. The year headings are merged over 2 cells and each year identifies 2 columns of data.

I would like the macro to delete both columns per corresponding year that is out of the range. See below.

[Blocked Image: https://mail.google.com/mail/u/0?ui=2&ik=8d7adef61b&attid=0.1&permmsgid=msg-f:1669850533701489605&th=172c8036914613c5&view=fimg&sz=s0-l75-ft&attbid=ANGjdJ8PBMXS6KcJrWoq8xFtmM5Wb2MZSzNywEff2n1Voe-myBsAUIUwhWB7ZWwM8j2EMHsPqPyaER6QvTPTe1HztaUBwx57nHX6dhFjPq017XeYovq_QxZ5n61pzGg&disp=emb]

Here is the code that I currently have. It only runs correctly if there is 1 column per year (no merged heading cells).

Also, the macro button needs to be on my Input sheet but I am currently only able to run the macro if my button is on the calculation sheet.

Sub A2
Dim i As Long, sh1 As Worksheet, sh2 As Worksheet, yr As Variant, sd As Variant, ed As Variant
Set sh1 = Sheets("Input")
Set sh2 = Sheets("Calculation")
sd = sh1.Range("A1").Value
ed = sh1.Range("A2").Value    
    With sh2        
        For i = .Cells(2, Columns.Count).End(xlToLeft).Column To 2 Step -1            
            yr = .Cells(2, i).Value                    
            If yr < sd Or yr > ed Then Columns(i).Delete        
       Next    
    End With
End Sub

Hey Roy,

I have posted an updated scenario with merged headings instead of individual headings for each year. (See above)

Hey Roy,

Yes I have read the forum rules and do understand that I should have pasted a link on this thread referencing the posted question.

My apologies. What can I do now to ensure I get some assistance regarding my latest question?