Autodato når der indtastes i række, men hvis det der indtastes er "" skal der ikke autodato

Jeg har et problem med nedenstående kode.
Jeg vil have at hvis der indtastes i en række skal der i rækkens A-kolonne stemples med dagsdato, men hvis det der indtastes blot er et "enter" altså ingenting skal skal der ikke stemples med dagsdato alligevel.

Jeg ved ikke om det er den helt forkerte tilgang jeg har til koden... :-(


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B20:DA105")) Is Nothing Then
    R = Target.Row
   
    AllCol = Cells(19, 256).End(xlToLeft).Column
   
    For i = 2 To AllCol
   
        If Cells(R, i).HasFormula Then GoTo XX

            If Not Cells(R, i).Value = "" Then
                flag = False
            End If
XX:

    Next i

    If flag = False Then
       
    Cells(R, 1).Value = Now
       
    Else
   
    Cells(R, 1).Value = ""
   
    End If
 
End If



End Sub