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