Delete Rows based on what it finds?

[Hyflex]

Hey Guys,

I think this is fairly simple to create but I'm having problems...

I need a macro to go through all of column "A" and search for the exact word "Logic" as the whole cell

If it finds it, then it needs to delete itself and the 3 rows above
However it must start searching from 19 and lower, so it must ignoring the one found in row 18

Thanks in advance
- Hyflex

[AB33]

Sub test()
  
  With Sheets("Sheet1")
    Application.ScreenUpdating = 0
             LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
             For i = LR To 19 Step -1
                    If Trim(.Cells(i, 1)) = "Logic" Then
                        .Cells(i, 1).EntireRow.Delete
                        .Cells(i, 1).Offset(-3).EntireRow.Delete
                    End If
            Next i
    Application.ScreenUpdating = 1
 End With
End Sub

[AB33]

OR

Sub test()
  
  With Sheets("Sheet1")
    Application.ScreenUpdating = 0
             LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
             For i = LR To 19 Step -1
                    If Trim(.Cells(i, 1)) = "Logic" Then
                        Union(.Cells(i, 1), .Cells(i, 1).Offset(-3)).EntireRow.Delete
                    End If
            Next i
    Application.ScreenUpdating = 1
 End With
End Sub

[bstier]

I just added two lines to AB33 code.

Sub test()
  
  With Sheets("Sheet1")
    Application.ScreenUpdating = 0
             LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
             For i = LR To 19 Step -1
                    If Trim(.Cells(i, 1)) = "Logic" Then
                        .Cells(i, 1).EntireRow.Delete
                        .Cells(i, 1).Offset(-1).EntireRow.Delete
                        .Cells(i, 1).Offset(-2).EntireRow.Delete
                        .Cells(i, 1).Offset(-3).EntireRow.Delete
                    End If
            Next i
    Application.ScreenUpdating = 1
 End With
End Sub