siz boş kontrolünü hangi kodla yapıyordunuz?
aşağıdaki kod aktif sayfanın değiştiğinde olayına ait.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim KeyCells As Range



    Set KeyCells = Range("D1318")

    

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

        If Range("d13") = "" Then Rows("13:18").EntireRow.Hidden = True Else Rows("13:18").EntireRow.Hidden = False

    End If

End Sub