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
Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]
Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.
