Delete row based on cells in different columns

Tim

Sub DeleteRows()
Dim theRange As Range
Dim lastRow&, firstRow&, x&
Set theRange = ActiveSheet.UsedRange
lastRow = theRange.Cells(theRange.Cells.Count).Row
firstRow = theRange.Cells(1).Row
For x = lastRow To firstRow Step -1
If Cells(x, 1) = "" And Cells(x, 19) = "" Then
Rows(x).Delete
End If
Next
End Sub

Celia

Thank you, greatly appreciated !

Please forgive my excitement, but is it possible to extend this to also delete the preceding 10 rows when the condition is met, regardless of their content ?

Tim
Yes, it can be done.
I presume what you want is that if columns A & S are blank in row 15 (for example), then you want row 15 and rows 5:14 to be deleted.
If so, what do you want to do if there are less than 10 previous rows? Do you want to delete only the row being checked, or delete the row being checked plus all previous rows?
Celia

Celia
The latter would be perfect !
Thanks again,
Tim

Tim
I have assumed that the first row in the used range is a header row and it should not be deleted :-

Sub DeleteRows()
Dim theRange As Range
Dim lastRow&, firstRow&, x&
Set theRange = ActiveSheet.UsedRange
lastRow = theRange.Cells(theRange.Cells.Count).Row
firstRow = theRange.Cells(1).Row + 1
For x = lastRow To firstRow Step -1
If Cells(x, 1) = "" And Cells(x, 19) = "" Then
If x > 10 Then
Rows(x & ":" & x - 10).Delete
x = x - 10
Else
Rows(firstRow & ":" & x).Delete
End If
End If
Next x
End Sub

Celia

That is................. WONDERFUL !!!!

Thank you, thank you, thank you !

(I can finally feel my headache subsiding..)

Celia, how would I do the same thing except delete a row if the value in a column didn't match a specified value?

Brad