Macro to delete rows based off criteria?

Sub Reset()

    Dim i As Integer
    Dim LastRow As Integer
    
    Application.ScreenUpdating = False
    
    LastRow = Worksheets(ActiveSheet.Name).Cells(Rows.Count, 1).End(xlUp).Row  'This will find the last used row in column A

        For i = LastRow To 2 Step -1
            If i <> 2 Then 'Skips Second Row
                If UCase(Cells(i, 2).Value) = "GOOD" Then 'Makes the word uppercase to avoid problems because good <> GOOD in VBA
                    Rows(i - 1 & ":" & i).EntireRow.Delete 'delete the row with GOOD and the one above it.
                        i = i - 1 'Since we deleted two rows, we need to move the counter an additional spot
                End If
            End If
        Next i

    Application.ScreenUpdating = True
    
End Sub

Sub Select_Select()
   
    Set rngLook = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row)

    With rngLook
        Set rngFind = .Find("Good", .Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
        If Not rngFind Is Nothing Then
            strFirstAddress = rngFind.Address
            Set rngPicked = Union(rngFind.Offset(-1, 0), rngFind)
            Do
                Set rngPicked = Union(rngPicked, rngFind.Offset(-1, 0), rngFind)
                Set rngFind = .FindNext(rngFind)
            Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
        End If
    End With
    
    If Not rngPicked Is Nothing Then
    rngPicked.EntireRow.Delete

    End If

End Sub