セルE12はセルF12とマージされます。
「削除」キーを押してセルE12の内容をクリアしても、セルc39は変更されません。
backspace + enterを使用してセルE12の内容をクリアすると、セルc39は更新されます。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$12" Then
Range("d28").Value = Range("e12").Value
If Range("e12") = "" Then ' update cell c39 with calculator
Range("c39") = "Do you ?"
Else
Range("c39") = "Do you " & Range("e13").Text & "?"
End If
End If
End Sub