Cole a rotina abaixo na aba em que irá realizar a digitação, ressalto que só terá efeito se digitar somente em "A1" conforme solicitou.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        
        If UCase(Target.Value) = UCase("Sim") Then
            
            sInputBox = InputBox(Prompt:="Referência A1", _
              Title:="Referencia A1", Default:="Digite motivo da perda da venda")
       
            If sInputBox = "Digite motivo da perda da venda" Or sInputBox = vbNullString Then
                MsgBox "Operação Cancelada ou Valor Inválido"
                Exit Sub
        
            Else
                Application.EnableEvents = False
                Target.Offset(1, 0).Value = sInputBox
            End If
            
        End If
        
    End If
    
    Application.EnableEvents = True
    
End Sub

Quanto a formatação da linha, é só usar a Formatação Condicional, selecione a linha 1, clique em "Formatação Condicional" - "Nova Regra" e depois "Usar uma formula para determinar ..." e na caixa "descrição..." cole a formula =$A$1="sim", depois clique em Formatar e defina o preenchimento ou outras formatações.

[]s

Era isso mesmo que eu estava procurando!!

Tem como "arrastar" esse comando para as linha de baixo?

Era isso mesmo que eu estava procurando!!

Tem como "arrastar" esse comando para as linha de baixo?

Não entendi, isto é um procedimento, e não uma formula, então não da para arrastar.
Como eu citei, está da forma que solicitou, digitar em A1 e se o valor for "SIM" efetuar a ação que orientou, detalhe melhor o q ue quer dizer com "Arrastar".

[]s