Como Rellenar una columnas con el Valor "1"

Puedes intentar con algo así:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
       If Target.Count > 1 Then Exit Sub
        Range("P" & Target.Row) = "1"
    End If
End Sub

Ese lo pones en la hoja que quieres hacer ese proceso
De ahora en adelante cada que pongas un valor en la columna A te pondrá un 1 en la fila correspondiente de la columna P

Hola Daniel

De antemano te agradezco tu ayuda, al ejecutar la macro me esta generando error que dice "Se esperaba End Sub", creo es porque es porque el código que me compartes inicia con un private sub, y yo el código lo estoy ingresando dentro del código de otra macro.

Quedo pendiente a tus comentarios.

Muchas gracias