VBA to append text to Specific Column on the same row on cell change

[Goodluckboss]

Hi guys

I have a VBA that appended comments to the cell on cell change

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
here = Target.Address
newnum = Target.Value
oldnum = Sheets("Historical").Range(here).Value
If oldnum = "" Then GoTo line99
oldcomment = Target.Comment.Text
Target.AddComment
Target.Comment.Text Date & ": " & oldnum & "->" & newnum & Chr(10) & oldcomment
line99:
Sheets("Historical").Range(here).Value = newnum
End Sub

However I have a problem, instead of appending comments, is it possible for it to append text to cell instead to say Column J of the SAME ROW?
and is there a way to pull also column header name?

Thanks in advance.