Delete rows or Clear contents below a specific word is found in Column A

Hi,
I have an excel file in which i have data for 7000 rows. I only need the data up to a specific row. SO, for that I want to use a macro.

i want to delete or Clear contents below a specific word (which is "Pro Production") is found in Column A.

Please help

Do either of these help?

Clear Contents

Sub kishoremcp()
Dim lr As Long
Dim rcell As Range

lr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Range("A2:A" & lr)

    If rcell = "Pro Production" Then
    
        rcell.Offset(1).ClearContents
        
    End If
    
Next rcell

End Sub

Delete

Sub kishoremcpA()
Dim lr As Long
Dim rcell As Range

lr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Range("A2:A" & lr)

    If rcell = "Pro Production" Then
    
        rcell.Offset(1).Delete shift:=xlUp
        
    End If
    
Next rcell

End Sub

Delete Entire Row

Sub kishoremcpB()
Dim lr As Long
Dim rcell As Range

lr = Cells(Rows.Count, 1).End(xlUp).Row

For Each rcell In Range("A2:A" & lr)

    If rcell = "Pro Production" Then
    
        rcell.EntireRow.Offset(1).Delete shift:=xlUp
        
    End If
    
Next rcell

End Sub