Automatic copying the entered data on a summary sheet 'chronology' and paste as values only

[navic]

I need help with VBA code for Worksheet_Change event. VBA needs to automatically copied specific columns in the same row after entering data (name, string, number or text from dropdown menu).
I need this VBA use on multiple sheets. Destination sheet is named the "Chronology".

info:
- Workbook contains Force enable macro
- Sheet Chronology is hidden!
- Each sheet contains the same number of columns
- Sheet Chronology sometimes be protected by a password when I open my workbook (If I forget unprotected this sheet. It is necessary to appear a popup window for entering a password if it is protected.)
- Sheet tab name can be changed in the future.

This below is a simple example. In reality, each sheet contains 119 columns and 520 rows

Sheet A

	A	B	C	D	E	F	G	H
1	Head1	Head2	Head3	Head4	Head5	Head6	Head7	Head8
2	Name1	PO			47
3	Name2	XY					FromDropMenu
4	Name3	XY
5	Name4	PO
6	Name5	PO

<tbody>
</tbody>

Sheet B

	A	B	C	D	E	F	G	H
1	Head1	Head2	Head3	Head4	Head5	Head6	Head7	Head8
2	Name12	XY
3	Name13	XY
4	Name14	PO			33
5	Name15	XY
6	Name16	PO

<tbody>
</tbody>

Sheet C

	A	B	C	D	E	F	G	H
1	Head1	Head2	Head3	Head4	Head5	Head6	Head7	Head8
2	Name33	PO
3	Name34	PO	101
4	Name35	PO
5	Name36	XY
6	Name37	PO

<tbody>
</tbody>

Destination Sheet Chronology

	A	B	C	D	E	F	G	H	I	J
1	Date/Time - Changed Data	Sheet tab Name	Head1	Head2	Head3	Head4	Head5	Head6	Head7	Head8
2	20.01.2017 15:20	A	Name1	PO			47
3	20.01.2017 15:21	A	Name2	XY					FromDropMenu
4	23.01.2017 09:45	B	Name14	PO		33
5	23.01.2017 17:31	C	Name34	PO	101
6

<tbody>
</tbody>

Can someone help me?

 

[navic]

bump

 

[navic]

Incredibly, or nobody knows or some Excel experts do not want to waste his time?

 

[navic]

I'm trying with this VBA code, but copies the entire row, and does not begin in the D column as a destination.
Can someone modify this VBA + date/time

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'Copy only the changed data + always copy columns A and B in same row and add the date-time copying
            Application.EnableEvents = False
    If Target.Column > 1 Then 'I can change col A-CK (columns from 1 to 89)- 1st attempt
    'If Target.Column <> "" Then 'I can change col A-CK (columns from 1 to 89) - 2nd attempt
        If UCase(Target.Value) <> "" Then
            Target.EntireRow.Copy Destination:=Sheets("Chronology"). _
            Range("A" & Rows.Count).End(xlUp).Offset(1)
            Target.EntireRow.Copy 'need be copied A,B columns and changed data only !!!
        End If
    End If

        Application.CutCopyMode = False
    Range("A1").Select 'I need select cell below changed cell

        ' Reset EnableEvents
            Application.EnableEvents = True
End Sub

 

[navic]

bump?