Sub Worksheet_selectionChange(ByVal Target as Range)
Dim target As String
target = Cells(4, 1)
Cells(4, 2).Formula = "INPUT"
Cells(4, 3).Formula = "INPUT"
Cells(4, 4).Formula = "INPUT"
Cells(4, 5).Formula = "= C25 * D25"
Cells(4, 6).Formula = "= C25 - E25"
Cells(4, 7).Formula = "=F25-(F25*$D$25)"
Cells(4, 8).Formula = "=G25-(G25*$D$25)"
Cells(4, 9).Formula = "=H25-(H25*$D$25)"
Cells(4, 10).Formula = "=I25-(I25*$D$25)"
Cells(4, 11).Formula = "=J25-(J25*$D$25)"
Cells(4, 12).Formula = "=K25-(K25*$D$25)"
Cells(4, 13).Formula = "=L25-(L25*$D$25)"
Select Case target
Case "January"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "February"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "March"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "April"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "May"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "June"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "July"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "August"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "September"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "October"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "November"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
Case "December"
Cells(4, 3).Formula = ""
Cells(4, 4).Formula = ""
End Select
End Sub