unhidding lines with VBA code?

[werfair]

I've got an excel file that has many lines hidden to make the file readable on one screen. but when I enter a number in column B I want the next row to unhide (ie the sheet is blank in B7 and when I put a number in B7 I want to unhide row 8 and if I put a number in B8 I want row 9 to unhide) I'm hoping someone can help me. thank you for your time.

 

[Takae]

The effect appears only when you type in column B.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then
        Exit Sub
    Else
        If Rows(Target.row + 1).Hidden = False Then
            Rows(Target.row + 1).Hidden = True
        End If
    End If
End Sub