En Son Dolu Hücrenin Üstündeki Boş Satırları Sil - Microsoft Excel

En son dolu hücrenin üstündeki boş satırları silmeye yarayan VBA kodudur.

Option Explicit

Sub EnSonDoluHucreninUstundekiBosSatirlariSil()
    Dim sonSatir As Long
    Dim i        As Long
    
    sonSatir = ActiveSheet.UsedRange.Row - 1 + _
    ActiveSheet.UsedRange.Rows.Count
    
    Application.ScreenUpdating = False
    
    For i = sonSatir To 1 Step -1
        If Application.CountA(Rows(i)) = 0 Then
            Rows(i).Delete
        End If
    Next
    
    Application.ScreenUpdating = True
End Sub