Ако искаме проверка само на колона "А" има много варианти как да се направи, но понеже съм мързелив бих го направил така:
двоен клик на клетката в която ще пишеш
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
r = Target.Row
k = Target.Column
If k = 1 And Cells(r, k) = "" Then
Cells(r, k) = "Уведомен"
Cells(r, 2) = Now()
End If
End Sub