Submit date on cell change vba

Put this code in your Control Sheet module - it does only what you specified:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$12" And IsDate(Target) Then
Dim wr As Worksheet, F As Range, PName As String
Set wr = Sheets("Escalation Rotation"): PName = Target.Offset(0, -4)
Set F = wr.Range("A:A").Find(PName, Lookat:=xlWhole)
            If Not F Is Nothing Then
        If F.Offset(0, 1) = "" Then
            F.Offset(0, 1) = Date
        Else: Do
        Set F = wr.Range("A:A").FindNext(F)
        Loop While Not F Is Nothing And F.Offset(0, 1) <> ""
End If:
F.Offset(0, 1) = Target: End If: End If: End Sub