Is there a better way to do this?

Automating AutoFilter will be faster. This code might need adjusting slightly

Option Explicit

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
     
     'Obtain the value that you want to delete
    sDelete = "Successful"
  
     
     '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:=9, 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

Select allOpen in new window

Whenever deleting rows you should do it backward

Dim lRow

For lRow = 3000 to 2 step -1
    If Cells(lRow, 9) <> "Successful" Then Rows(lRow).Delete
Next

Select allOpen in new window

The OP's code already deletes backwards from 3000

Creating a range to delete will be faster

Option Explicit

Sub DeleteRows()
    Dim rRng As Range, rDelete As Range, rCl As Ranges

    Set rRng = Cells(1, 9).CurrentRegion    '///limits the number of Rows

    For Each rCl In rRng
        If rCl.Value <> "Successful" Then
            If rDelete Is Nothing Then
                Set rDelete = rCl
            Else: Set rCl = Union(rDelete, rCl)
            End If
        End If
    Next rCl
    If Not rDelete Is Nothing Then rDelete.EntireRow.Delete
End Sub

Select allOpen in new window

However, AutoFilter will be faster than a Loop.

Note the criteia in my earlier post should be <> "Successful" not ="Successful"

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.