Pessoal , ja consegui, estou fechando o tópico.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 2 Then Exit Sub
        If Target.Value = "" Then
            Target.Value = "P"
        Else: Target.Value = ""
        End If
    Application.SendKeys "{ESCAPE}"
End Sub

Não sei se é o mais simples mas funcionou bem....