Dim bitEnable As Boolean
Dim vsAdr As String
Dim vlRow As Long
Dim vlCol As Long
Dim vvVal As Variant


Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not bitEnable Then
        bitEnable = True
        vlRow = Target.Row
        If vlRow = 7 Or vlRow = 8 Or vlRow = 9 Then
            Application.EnableEvents = False
            vsAdr = Target.Address
            vvVal = Target.Value
            vlCol = Target.Column
            If vlCol = 5 Then
                Range("e7:e9").ClearContents
            ElseIf vlCol = 6 Then
                Range("f7:f9").ClearContents
            ElseIf vlCol = 7 Then
                Range("g7:g9").ClearContents
            ElseIf vlCol = 8 Then
                Range("h7:h9").ClearContents
            ElseIf vlCol = 9 Then
                Range("i7:i9").ClearContents
            ElseIf vlCol = 10 Then
                Range("j7:j9").ClearContents
            ElseIf vlCol = 11 Then
                Range("k7:k9").ClearContents
            ElseIf vlCol = 12 Then
                Range("l7:l9").ClearContents
            ElseIf vlCol = 13 Then
                Range("m7:m9").ClearContents
            ElseIf vlCol = 14 Then
                Range("n7:n9").ClearContents
            End If
            Range(vsAdr) = vvVal
            Application.EnableEvents = True
        End If
    End If

End Sub