VBA Code to Remove Blank Rows from a Worksheet in Excel

by

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
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment