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

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