Kayıt ederken satır aç sonra gizle

[sirkülasyon]

Es Selâmü Aleyküm.
Hayırlı Akşamlar

ustam userform üzerinden sayfaya kayıt ederken B7:M50 arasındaki satırların gizli olanları ilkönce açacak. Kayıt yaptıktan sonra da son dolu satırdan sonraki boş satırdan itibaren 50. satıra kadar gizleyecek bir koda ihtiyacım var. Yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Sub Gizle()
    Rows("7:50").Hidden = False
    '.....
    'Kodlarınız
    '......
    Dolu = Range("B51").End(xlUp).Row + 1
    If Dolu < 7 Then Exit Sub
    Rows(Dolu & ":50").Hidden = True
End Sub

 

[sirkülasyon]

Var olasın.
Saygılarımı sunar, teşekkür ederim.