please excuse my bad description
run time error is the bug that comes with the macro, i said infinite loop because it seems that the program couldn't stop and the screen is blinking

here is the original code and i was using worksheet calcuate actually.. however, this code is not working automaticammy like yesterday when i first tested it:::so werid;.
Private Sub Worksheet_Calculate()
 Dim Target As Range
    Set Target = Range("I1")

    If Not Intersect(Target, Range("I1")) Is Nothing Then
            
        Select Case Range("I1").Value
                       
            Case 2
                Range("H13,D27,H27").Value = "left"
                Range("I13,E27,I27").Value = "right"
                
            Case 3
                Range("H13,D27,H27").Value = "lateral"
                Range("I13,E27,I27").Value = "central"
                
            Case Else
            'Application.ScreenUpdating = False
'_____bug starts the next line_______
                Range("H13,D27,H27").Value = ""
                ActiveSheet.Range("I13:I20").ClearContents
                Range("C4").Select
            'Application.ScreenUpdating = True
            
         End Select
    End If
End Sub