VBA delete rows below last appareance of a string

On Error Goto ErrorOutWith Sheet("data").Cells
    Range(.Find(Sheet("Info").Range("A1").Text, After:=.Cells(1,1), searchDirection:=xlPrevious), .Cells(.Rows.Count,.Columns.Count)).EntireRow.Delete
End With
On Error Goto 0
Exit Sub
ErrorOut:
    MsgBox "not found"
    Err.Clear
    On Error Goto 0
Exit Sub

Sub atest()
Dim LR As Long, Found As Range
With Sheets("Data")
    LR = .Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    Set Found = .Columns("A").Find(what:=Sheets("info").Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
    If Found Is Nothing Then
        MsgBox "Not found", vbInformation
    Else
        .Range("A" & Found.Row + 1 & ":A" & LR).EntireRow.Delete
    End If
End With
End Sub

Sub atest()
Dim Found As Range
With Sheets("Data")
    Set Found = .Columns("A").Find(what:=Sheets("info").Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
    If Found Is Nothing Then
        MsgBox "Not found", vbInformation
    Else
        .Range("A1:A" & Found.Row - 1).EntireRow.Delete
    End If
End With
End Sub

Sub atest()
Dim LR As Long, i As Long, Found As Range
With Sheets("Data")
    LR = .Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    For i = LR To 1 Step -1
        If .Range("A" & i).Value = Sheets("info").Range("A1").Value Then
            Set Found = .Range("A" & i)
            Exit For
        End If
    Next i
    If Found Is Nothing Then
        MsgBox "Not found", vbInformation
    Else
        .Range("A" & Found.Row + 1 & ":A" & LR).EntireRow.Delete
    End If
End With
End Sub