Thank you so much

This worked perfectly.

Andrea

On Sep 28, 11:50 am, Joel wrote:
Sub test()

Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

For RowCount = Lastrow To 1 Step -1
If (Range("A" & RowCount) = "Initial") And _
Range("A" & RowCount + 1) = "Final" Then

Rows(RowCount & ":" & (RowCount + 1)).Delete
End If
Next RowCount

End Sub



" wrote:
Can someone please help with this small request.

I need a macro to find the word "intial" in column A and if the word
in the cell immediately below that contains the word "final" then it
should delete both the two rows.

The have to be in the order of "Intial" then "Final" as this would
mean there has been no activity in between the two.

I hope someone can help.

Thanks in advance,

Andrea- Hide quoted text -

- Show quoted text -