VBA Delete Entire Row if Contains Certain Text

Sub DeleteRows()
    Dim x, i As Long
    
    x = Sheet1.Cells(1).CurrentRegion
    For i = UBound(x, 1) To 2 Step -1
        If x(i, 4) = "Record Only" Then
            Sheet1.Rows(i).Resize(16).Delete
        End If
    Next
    
End Sub

Sub deleteFilteredData()
    Dim rDelete    As Range
    Dim lCalc  As Long
    Dim sDelete As String
     
    With Application
        lCalc = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
 On Error GoTo exit_proc
     
    
    sDelete = "Record Only"
   
     
     'Sheet with the data, change the name
    With Sheet1
        .AutoFilterMode = False
         
         'Apply the filter, this range of data starts in A1
        .Cells(1, 1).CurrentRegion.AutoFilter Field:=4, Criteria1:=sDelete
         
        With .AutoFilter.Range
            On Error Resume Next
            Set rDelete = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
            .SpecialCells(xlCellTypeVisible)
'            On Error GoTo 0
            If Not rDelete Is Nothing Then rDelete.EntireRow.Delete
        End With
         'Remove the AutoFilter
        .AutoFilterMode = False
    End With
     
exit_proc:
        .ScreenUpdating = True
        .Calculation = lCalc
    End With
     
End Sub

Sub DeleteRows()
    Dim x, i As Long, lRow As Long
    
    With Sheet1
        lRow = .Cells(.Rows.Count, 4).End(xlUp).Row
        x = .Cells(2, 4).Resize(lRow)
        For i = UBound(x, 1) To 1 Step -1
            If x(i, 4) = "Record Only" Then
                .Rows(i).Resize(16).Delete
            End If
        Next
    End With
    
End Sub