Hello gaby58,
The following macro has been added to the attached workbook. Your starting row on "Chart" is 1 ahead of the other "Update" sheet. If you reformat the "Chart" sheet to match the format of the other sheet, remove the code in red in the macro.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
Dim SrcRng As Range
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set SrcRng = Range("B5", Cells(LastRow, "E"))
If Not Intersect(Target, SrcRng) Is Nothing Then
Worksheets("Chart").Cells(Target.Row + 1, Target.Column) = Target
End If
End Sub
Sincerely,
Leith Ross
Bookmarks