Vis en skjult linje når der skrives i linjen ovenover

Hvis du har et antal linier, der er skjult, vil dene kode gøre, at når du skriver i den sidste, ikke skjulte rækkes b-kolonnen vil den skjulte række nedenunder bleive vist.

Koden skal placeres i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 2 Then
            Target.Offset(1, 0).Rows("1:1").EntireRow.Select
            Selection.EntireRow.Hidden = False
    End If

End Sub

Eller kortere og bedre frodi selection udelades:

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 2 Then
            Target.Offset(1, 0).Rows("1:1").EntireRow.Hidden = False
    End If

End Sub

Kan man gøre sådan den ikke markere rækken som bliver vist?
Ellers virker det perfekt :)

Problem løst med den optimerede kode.
Smid et svar.

Her er et svar :-)