VBA: Deleting Empty Rows

[bamaisgreat]

I was needing some code that would delete all empty rows. I need it to start at Row 3 and then find the last row of data and then delete all the empty rows in that range. Thanks Excel 2010

 

[mumps]

Try:

Sub DeleteBlankRows()
    Application.ScreenUpdating = False
    Dim lastRow As Long
    lastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Dim x As Long
    For x = lastRow To 3 Step -1
        If Application.CountA(Cells(x, 1).EntireRow) = 0 Then
            Rows(x).EntireRow.Delete
        End If
    Next x
    Application.ScreenUpdating = False
End Sub

 

[bamaisgreat]

Try:

Sub DeleteBlankRows()
    Application.ScreenUpdating = False
    Dim lastRow As Long
    lastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Dim x As Long
    For x = lastRow To 3 Step -1
        If Application.CountA(Cells(x, 1).EntireRow) = 0 Then
            Rows(x).EntireRow.Delete
        End If
    Next x
    Application.ScreenUpdating = False
End Sub

Im having a Runtime Error'1004' Delete method range class failed it then highlights Rows(x).EntireRow.Delete Thanks Jamey

 

[mumps]

When I tried it on a dummy file, it worked for me. It would be helpful if I could see how your data is organized. Is there any way you could upload your file to a site such as www.box.com? It will give you a link to the uploaded file which you could post here.

 

[Jonmo1]

Try this assuming column A can be used to determine a blank row.

Sub DeleteEmptyrows()
Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End sub

 

[bamaisgreat]

When I tried it on a dummy file, it worked for me. It would be helpful if I could see how your data is organized. Is there any way you could upload your file to a site such as www.box.com? It will give you a link to the uploaded file which you could post here.

https://www.box.com/s/dz27zrpw9fgstp7jizer This is a copy of the workbook.