مساعدة في تعديل كود

[mostafa2khalifa]

الرجاء المساعدة في تعديل هذا الكود 

اريد تحقيق كتابة شرد في الخلية وهو حرف R  وبعدها يتم كتابة التاريخ في الخلية 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A2:A20")) Is Nothing Then
        VBA.Calendar = vbCalGreg

        If Len(Target.Cells(1).Value2) <> 0 Then
            Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = Date
        Else
            Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = vbNullString
        End If
    End If
End Sub