Copy this macro into a module. After that, right-click on the first drop down, assign macro, and pick Box1Change as the macro. Macro will not run after you make a change.
Code:
Sub Box1Change()
Dim ws As Worksheet
Dim Is2014 As Boolean
Set ws = Worksheets("Sheet1")
'Determine which state to go into
Is2014 = (ws.Range("B6").Value = 2)
Application.ScreenUpdating = False
With ws
.Shapes("Drop Down 2").Visible = Is2014
.Shapes("Drop Down 3").Visible = Not (Is2014)
.Range("13:16").EntireRow.Hidden = Not (Is2014)
.Range("17:21").EntireRow.Hidden = Is2014
End With
Application.ScreenUpdating = True
End Sub