Satır gizlenince otomotik sayı düzenlenmesi

[Yesilyurtlu]

Hayırlı Sabahlar

Üstadlarım
sayfada boş satırları

Sub Gizle()
For Each t In Range("l6:l61").Cells
If t.Value = "" Then
t.EntireRow.Hidden = True
End If
Next t
End Sub

Fonksiyonu ile gizleyince A6:A50 sütununda ki sıra no'lar gizlenen satırlar süz alttoplam da ki gibi sıra no verebilir miyiz?
Yani gizlenmeyen satırlar 1,2,3 diye gelecek.

 

[halit3]

a sütunundaki numaralar değişir bu kodla

Sub Gizle()
For Each t In Range("l6:l61").Cells
If t.Value = "" Then
t.EntireRow.Hidden = True
Else
i = i + 1
Cells(i, "A").Value = i
End If
Next t
End Sub