Public Sub DeleteEmptyRows()
Dim lRow As Long

For lRow = 2400 To 800 Step -1
If Cells(lRow, 1).Value = "" Then
Cells(lRow, 1).EntireRow.Delete
Exit For
End If
Next lRow
End Sub

Cheers,
Flemming


"benxprezoise" wrote in message
...


I need help in deleting rows. I have sheets with 10 columns with rows
ranging from 800-2400. I need to delete the rows which has empty data on
column 1. I would really appreciate your prompt help. Thanks in advance.
--
bpz