Copy data to second sheet appending at top with date

[alex0182828]

Hi All,

Can anyone help me copy data from one tab to another using macro. The data should be copied to the second log tab and then appended to the top of the list and the date the macro is run inserted. The exisiting data in the log tab is pushed down to the bottom and anothing is deleted. Im using office 365 mac if that makes a difference.

Mr Excel Example.xlsx
	A	B	C	D	E
1	Header 1	Header 2	Header 3	Header 4
2	This data needs copied		This data needs copied	This data needs copied
3	This data needs copied		This data needs copied	This data needs copied
4	This data needs copied		This data needs copied	This data needs copied
5	This data needs copied		This data needs copied	This data needs copied
6	This data needs copied		This data needs copied	This data needs copied
7	This data needs copied		This data needs copied	This data needs copied
8	This data needs copied		This data needs copied	This data needs copied
9	This data needs copied		This data needs copied	This data needs copied
Copy From

Mr Excel Example.xlsx
	A	B	C	D	E
1	Date	Header 1	Header 2	Header 3	Header 4
2	Date is inserted by macro	Copied Data		Copied Data	Copied Data
3	Date is inserted by macro	Copied Data		Copied Data	Copied Data
4	Date is inserted by macro	Copied Data		Copied Data	Copied Data
5	Date is inserted by macro	Copied Data		Copied Data	Copied Data
6	Date is inserted by macro	Copied Data		Copied Data	Copied Data
7	Date is inserted by macro	Copied Data		Copied Data	Copied Data
8	Date is inserted by macro	Copied Data		Copied Data	Copied Data
9	Date is inserted by macro	Copied Data		Copied Data	Copied Data
10	Old Data	Old Data		Old Data	Old Data
11	Old Data	Old Data		Old Data	Old Data
12	Old Data	Old Data		Old Data	Old Data
13	Old Data	Old Data		Old Data	Old Data
14	Old Data	Old Data		Old Data	Old Data
15	Old Data	Old Data		Old Data	Old Data
16	Old Data	Old Data		Old Data	Old Data
17	Old Data	Old Data		Old Data	Old Data
18	Old Data	Old Data		Old Data	Old Data
19	Old Data	Old Data		Old Data	Old Data
20	Old Data	Old Data		Old Data	Old Data
21	Old Data	Old Data		Old Data	Old Data
22	Old Data	Old Data		Old Data	Old Data
23	Old Data	Old Data		Old Data	Old Data
24	Old Data	Old Data		Old Data	Old Data
Log

 

[Z51]

Try:

Sub alex()
Dim lastrow As Long
lastrow = Sheets("Copy From").Range("A" & Rows.Count).End(xlUp).Row

With Sheets("Log")
    .Rows("2:" & lastrow).Insert Shift:=xlShiftDown
    .Range("B2:E" & lastrow).Value = Sheets("Copy From").Range("A2:D" & lastrow).Value
    .Range("A2:A" & lastrow).Value = Date
End With
End Sub

 

[alex0182828]

Amazing works a treat edited it to my actual spreadsheet structure