Code to Loop and Delete Relevant String

Hi snaggle,

Welcome to the Forum!

Maybe:

Sub deleteScrolls()
Dim i As Integer
For i = Range("A" & Rows.Count).End(xlUp).row To 1 Step -1
If Range("A" & i) Like "*Scroll*" Then
Range("A" & i).EntireRow.Delete Shift:=xlUp
End If
Next i
End Sub

BTW - Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here