선택영역을 지워도 특정셀의 값은 지워지지 않도록 설정하는 방법이 궁금합니다.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Range
    For Each X In Target.Cells
        If X.Row > 2 Then
            If X.Column = 2 Or X.Column = 6 Then
                Cells(X.Row, 6) = IIf(Cells(X.Row, 2) = "", "", "-")
            ElseIf X.Column = 5 Or X.Column = 9 Then
                Cells(X.Row, 9) = IIf(Cells(X.Row, 5) = "", "", ",")
            End If
        End If
    Next X
End Sub