Delete Empty Rows

[Hadi1973]

Dear All,

This is my first time to use Macros, I need to create one to capture and delete all empty rows, since it is a huge database. can you help me out.

 

[AlanSidman]

Attach a sample file of 8-10 records showing what your data looks like so we can formulate a solution that works. There is nothing generic in VBA

 

[Marc L]

Hi, rather than deleting the empty rows you may just sort the database data range so without needing any VBA procedure …​

​

 

[jolivanes]

There are different ways of doing things.
Here is another way.

Sub Or_So()
Dim lc As Long, lr As Long
lc = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
lr = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Application.ScreenUpdating = False
    With Cells(1, lc + 1).Resize(lr)
        .Formula = "=COUNTA(RC[" & -lc & "]:RC[-1])"
        .Value = .Value
        .Replace 0, "=XXX", xlWhole, , False, , False, False
        .SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
    End With
Columns(lc + 1).ClearContents
Application.ScreenUpdating = True
End Sub

It would be nice to know how large your database is (Rows and Columns) and how long it takes to do the deed(s)