Excel prorgamında verileri girdikçe satırları gizleme

Arkadaşlar Excel prorgamında verileri girdikçe satırları gizleyabilir miyiz?

ÖRNEK: A isimli öğrencinin yaşını girdiğimde bir sonraki satıra geçtğimde A isimli öğrencinin ismi gizlensin istiyorum.

vba ekle

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value <> "" Then
Target.EntireRow.Hidden = True
End If
End If
End Sub


hazır dosyayı da ekledim

Teşekkürler hocam