ワークシートのチェンジイベントを利用すればよいと思います。

Excel(エクセル) VBA入門：ワークシートのイベント
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long, nRow As Long
Dim i As Long
    If Intersect(Target, Range("A1")) Is Nothing Then
        Exit Sub
    Else
    Application.EnableEvents = False
        lRow = Cells(Rows.Count, 12).End(xlUp).Row
        nRow = Cells(Rows.Count, 14).End(xlUp).Row
        If Application.WorksheetFunction.CountIf(Range("L1:L" & lRow), Range("A1").Value) >= 1 Then
            MsgBox ("A1に入力した数値はL列の履歴にあります")
        Else
            If Range("L1").Value = "" Then lRow = 0
            If Range("N1").Value = "" Then nRow = 0
            
            Cells(lRow + 1, 12).Value = Range("A1").Value
            Cells(nRow + 1, 14).Value = Range("G1").Value
        End If
    End If
    Application.EnableEvents = True
    
End Sub