Code to Loop and Delete Relevant String

Try this code

Sub DeleteScrolls()
    Dim I As Long
    For I = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
        If Cells(I, 1).Value Like "*ActiveWindow.ScrollColumn*" Then
            Rows(Cells(I, 1).Row).Delete Shift:=xlUp
        End If
    Next I
End Sub