I have issue with my excel vba that I would like the data entry in Sheet1 being copied and paste to Sheet2 and added the date in Column B. The date part isn't working. Please see attached my code.
Public Sub CreationDate(ByRef Target As Range)
Const CreateColumn As String = "B"
With .Worksheet.Cells(.Row, CreateColumn)
If Not IsDate(.Value) Then .Value = Date
Private Sub Worksheet_Change(ByVal Target As Range)
Const TriggerColumn As String = "C"
Const HeaderRows As Long = 1
If .Column = Asc(TriggerColumn) - 64 Then
If .Row > HeaderRows And _
Trim(.Value) <> vbNullString Then _