Conditional Delete

[pebrown]

I need help writing a macro to remove rows from a large spreadsheet where the cells in columns E# - AI is blank. All 31 cells on the row must be blank before the entire
row can be removed. Columns A# - D# will always have
values. The spreadsheet has approximately 2300 rows to
search.

 

[Zathras]

Here is one way:
[blue]

Sub demo()
  DeleteBlankDataRows "E", "AI"
End Sub

Sub DeleteBlankDataRows(FromColumn As String, ThruColumn As String)
Dim nFirstRow As Long
Dim nLastRow As Long
Dim nRow As Long
Dim sAddress As String
Dim rng As Range
  With ActiveSheet.UsedRange
    nLastRow = .Rows.Count + .Row - 1
    nFirstRow = .Row
  End With
  Application.ScreenUpdating = False
  For nRow = nLastRow To nFirstRow Step -1
    sAddress = FromColumn & nRow & ":" & ThruColumn & nRow
    Set rng = Range(sAddress)
    If WorksheetFunction.CountBlank(rng) = rng.Count Then
      rng.EntireRow.Delete
    End If
  Next nRow
  Application.ScreenUpdating = True
End Sub

[/color]