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