Macro to Delete rows containing specific text and one row above

[howard]

i have written code to delete rows containing "Mersand" in Col A from row 2 onwards


I need this amended to delete the row above "Mersand" as well

it would be appreciated if someone would kindly amend my code

 Sub Del_Mersand()
With Sheets("Imported Data")
Dim LR As Long, i As Long
LR = .Range("A" & .Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If .Range("A" & i).Value Like "*Mersand*" Then Range("A" & i).EntireRow.Delete

Next i
End With
End Sub

 

[Joe4]

Changing this line:

If .Range("A" & i).Value Like "*Mersand*" Then Range("A" & i).EntireRow.Delete

to this:

If .Range("A" & i).Value Like "*Mersand*" Then .Rows(i-1 & ":" & i).Delete

 

[howard]

Thanks for the help Joe. Code works perfectly

 

[Joe4]

You are welcome.