Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('D9')) Is Nothing Then
test = Range('D9').Value
If test > 0 And test < 5 Then
Select Case test
Case 1
Range('P_CD_option1').Select
Case 2
Range('P_CD_option2').Select
Case 3
Range('P_CD_option3').Select
Case 4
Range('P_CD_option4').Select
End Select
Selection.Copy
Range('D69:d71').Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Calculate
End If
End If
End Sub