Copy just last row of sheet1 into the sheet 2

[motilulla]

Hello,</SPAN></SPAN>

I want just last row of the sheet1, which is not fixed, can be any row number but in this case is the E25:R25 I want copy into the sheet2 as shown in the example below </SPAN></SPAN>

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1
2
3
4
5					n1	n2	n3	n4	n5	n6	n7	n8	n9	n10	n11	n12	n13	n14
6
7					1	0	0	0	1	0	1	0	1	1	0	0	1	0
8					2	1	1	0	2	1	0	0	2	0	1	1	0	0
9					3	0	0	0	3	0	1	0	3	1	0	0	1	0
10					4	0	0	1	4	0	2	0	0	2	1	0	0	0
11					0	1	0	2	0	0	3	0	0	3	2	1	0	0
12					1	2	1	3	1	1	0	0	1	0	0	0	0	1
13					2	0	0	4	0	0	0	1	0	0	1	0	1	0
14					0	1	1	5	0	1	0	0	0	1	0	0	2	0
15					0	0	0	6	1	2	1	0	1	2	0	1	3	1
16					0	1	1	0	0	0	0	0	2	0	0	2	4	0
17					1	0	2	1	0	1	1	1	3	0	0	0	5	1
18					0	0	3	0	1	0	2	0	0	0	1	0	6	0
19					0	0	0	0	0	1	0	0	0	1	2	1	0	0
20					1	0	0	1	1	0	0	0	0	2	0	0	1	1
21					0	0	0	0	2	0	1	1	0	3	1	0	2	2
22					0	0	0	1	3	0	0	2	0	4	0	0	3	0
23					1	0	1	0	0	1	0	0	0	5	0	0	0	1
24					0	0	0	0	0	2	0	0	1	0	1	1	1	0
25					1	0	0	2	2	1	5	1	0	0	3	0	0	1
Sheet1

Book1
	A	B	C
1	1
2	0
3	0
4	2
5	2
6	1
7	5
8	1
9	0
10	0
11	3
12	0
13	0
14	1
15
16
17
Sheet2

Thank you all</SPAN></SPAN>

Excel 2000</SPAN></SPAN>
Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>

 

[jim may]

Why not Start by Recording a Macro

 

[My Aswer Is This]

Assuming you always want to copy from Column E to Column S

and lastrow is always dependent on Column "E"

Try this:

Sub Copy_Last_Row()
'Modified 1/10/2019 9:43:36 PM  EST
Application.ScreenUpdating = False
Sheets(1).Activate
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "E").End(xlUp).Row
Cells(Lastrow, "E").Resize(, 15).Copy
Sheets(2).Cells(1, 1).PasteSpecial xlPasteValues, Transpose:=True
Application.ScreenUpdating = True
End Sub

 

[motilulla]

Assuming you always want to copy from Column E to Column S

and lastrow is always dependent on Column "E"

Try this:

Sub Copy_Last_Row()
'Modified 1/10/2019 9:43:36 PM  EST
Application.ScreenUpdating = False
Sheets(1).Activate
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "E").End(xlUp).Row
Cells(Lastrow, "E").Resize(, 15).Copy
Sheets(2).Cells(1, 1).PasteSpecial xlPasteValues, Transpose:=True
Application.ScreenUpdating = True
End Sub

My Aswer Is This, VBA Copied Last Row Perfect! Thank you very much for the help!</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Moti

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

My Aswer Is This, VBA Copied Last Row Perfect! Thank you very much for the help!

Kind Regards,
Moti