VBA Code to Remove Blank Rows from a Worksheet in Excel

VBA Code:

' VBA Code to Remove Blank Rows from a Worksheet in Excel

Sub RemoveBlankRows()
    Dim lastRow As Long
    Dim i As Long
    
    ' Set the range of the worksheet
    With Worksheets("Sheet1") ' Replace with the name of your worksheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Assumes column A for checking blankness
        
        ' Loop through each row in reverse order and delete if blank
        For i = lastRow To 1 Step -1
            If WorksheetFunction.CountA(.Rows(i)) = 0 Then
                .Rows(i).Delete
            End If
        Next i
    End With
    
    MsgBox "Blank rows have been removed."
End Sub


Check All VBA Codes

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

Leave a Comment