請問 附件的程式碼該如何改善?

mistery

請問版主

我直接複製第一段程式碼做第二段  可是第二段卻都無法運作
想問該如何改善?  感謝~

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$D$13" Then Exit Sub
If Target = "倍數" Then [D27:D27] = "" Else [D27:D27].FormulaR1C1 = "某公式"

'以下是第二段
If Target.Address <> "$E$13" Then Exit Sub
If Target = "倍數" Then [E27:E27] = "" Else [E27:E27].FormulaR1C1 = "某公式"
End Sub