Hi I get a runtime error 13 when highlighting and deleting multiple cells at once within the rage define by the following code: 

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("B28:B46")) Is Nothing Then
        If Target.Value = "" Then
            Target.Offset(1).EntireRow.Hidden = True
        Else
            Target.Offset(1).EntireRow.Hidden = False
        End If
Application.ScreenUpdating = True
End If
End Sub
The code is designed to hide/unhide the row below if something has been entered in the cell above. Rows 29 through 47 are hidden to the user when they first open the workbook. With the error, the rows do not hide automatically once the content has been deleted.

The code below performs the same thing as the above, however, I do not get the error with the code below and the rows hide automatically when the content has been deleted. Any ideas as to how to avoid the error with the condensed code above? Thanks!

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    If Range("B28").Value = 0 Then Range("B29").EntireRow.Hidden = True
    If Range("B29").Value = 0 Then Range("B30").EntireRow.Hidden = True
    If Range("B30").Value = 0 Then Range("B31").EntireRow.Hidden = True
    If Range("B31").Value = 0 Then Range("B32").EntireRow.Hidden = True
    If Range("B32").Value = 0 Then Range("B33").EntireRow.Hidden = True
    If Range("B33").Value = 0 Then Range("B34").EntireRow.Hidden = True
    If Range("B34").Value = 0 Then Range("B35").EntireRow.Hidden = True
    If Range("B35").Value = 0 Then Range("B36").EntireRow.Hidden = True
    If Range("B36").Value = 0 Then Range("B37").EntireRow.Hidden = True
    If Range("B37").Value = 0 Then Range("B38").EntireRow.Hidden = True
    If Range("B38").Value = 0 Then Range("B39").EntireRow.Hidden = True
    If Range("B39").Value = 0 Then Range("B40").EntireRow.Hidden = True
    If Range("B40").Value = 0 Then Range("B41").EntireRow.Hidden = True
    If Range("B41").Value = 0 Then Range("B42").EntireRow.Hidden = True
    If Range("B42").Value = 0 Then Range("B43").EntireRow.Hidden = True
    If Range("B43").Value = 0 Then Range("B44").EntireRow.Hidden = True
    If Range("B44").Value = 0 Then Range("B45").EntireRow.Hidden = True
    If Range("B45").Value = 0 Then Range("B46").EntireRow.Hidden = True
    If Range("B46").Value = 0 Then Range("B47").EntireRow.Hidden = True
        
    If Not Range("B28").Value = 0 Then Range("B29").EntireRow.Hidden = False
    If Not Range("B28").Value = 0 Then Range("B29").EntireRow.Hidden = False
    If Not Range("B29").Value = 0 Then Range("B30").EntireRow.Hidden = False
    If Not Range("B30").Value = 0 Then Range("B31").EntireRow.Hidden = False
    If Not Range("B31").Value = 0 Then Range("B32").EntireRow.Hidden = False
    If Not Range("B32").Value = 0 Then Range("B33").EntireRow.Hidden = False
    If Not Range("B33").Value = 0 Then Range("B34").EntireRow.Hidden = False
    If Not Range("B34").Value = 0 Then Range("B35").EntireRow.Hidden = False
    If Not Range("B35").Value = 0 Then Range("B36").EntireRow.Hidden = False
    If Not Range("B36").Value = 0 Then Range("B37").EntireRow.Hidden = False
    If Not Range("B37").Value = 0 Then Range("B38").EntireRow.Hidden = False
    If Not Range("B38").Value = 0 Then Range("B39").EntireRow.Hidden = False
    If Not Range("B39").Value = 0 Then Range("B40").EntireRow.Hidden = False
    If Not Range("B40").Value = 0 Then Range("B41").EntireRow.Hidden = False
    If Not Range("B41").Value = 0 Then Range("B42").EntireRow.Hidden = False
    If Not Range("B42").Value = 0 Then Range("B43").EntireRow.Hidden = False
    If Not Range("B43").Value = 0 Then Range("B44").EntireRow.Hidden = False
    If Not Range("B44").Value = 0 Then Range("B45").EntireRow.Hidden = False
    If Not Range("B45").Value = 0 Then Range("B46").EntireRow.Hidden = False
    If Not Range("B46").Value = 0 Then Range("B47").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub