VBA Code to Delete Empty Rows in Excel

This code deletes the empty rows in the selected range.

VBA Code:

Sub DeleteEmptyRows()
    Dim cell As Range
    
    For Each cell In Selection
        If WorksheetFunction.CountA(cell.EntireRow) = 0 Then
            cell.EntireRow.Delete
        End If
    Next cell
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment