Macro VBA help?

[dwarnimont]

Looking create a macro that adds a new line WITHIN a cell, Starting by adding the current date, then i add notes

My failed Code resulting from "recording" of keystrokes:
Sub dw()
'
' dw Macro


'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"10/3/2019-> Lead team to improve with recent suggestions" & Chr(10) & "10/7/2019-> "
Range("J22").Select
End Sub

What is actually needed, steps:
From current cell, F2 edit current cell
Alt+Enter (adds new line)
clt + ; (auto fill with the current date)
"-> " for separator text
Enter.
At this point I'd F2 and begin taking notes on the new line.

 

[Eric W]

How about:

Sub dw()

    ActiveCell = ActiveCell & vbCrLf & Date & " -> "
    
End Sub

 

[dwarnimont]

This suggestion works great. thank you! Cant believe how much time i wasted and now seeing to solution.....so simple

 

[Eric W]

It just takes a bit of experience, and I've been around a long time. Glad it works for you!