Hello people,

I have a thing in my head, not sure if it is possible but if so, I bet someone here would know.

I have this table on sheet 1(Table1). If something changes in the 15th column I want that entire row copied and pasted on
sheet2 on the next blanc row.
And, the most exiting part... I want to past on that same row an additional cell the date of Today()


I know it has to be something with

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, ListObjects(Table1).ListColumns(15).DataBodyRange) Is Nothing Then


And something with


Target.Row.Copy
Sheets.Sheet2.Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


But everything I try, I get debugs.
And I don't even know where to start to add te Today()

Can someone please show me how this is done? If it is possible at all!