Copy just last row of sheet1 into the sheet 2

motilulla

Well-known Member
Joined
Feb 13, 2008
Messages
2,422
Office Version
  1. 2010
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
ABCDEFGHIJKLMNOPQR
1
2
3
4
5n1n2n3n4n5n6n7n8n9n10n11n12n13n14
6
710001010110010
821102100201100
930003010310010
1040014020021000
1101020030032100
1212131100100001
1320040001001010
1401150100010020
1500061210120131
1601100000200240
1710210111300051
1800301020001060
1900000100012100
2010011000020011
2100002011031022
2200013002040030
2310100100050001
2400000200101110
2510022151003001
Sheet1



Book1
ABC
11
20
30
42
52
61
75
81
90
100
113
120
130
141
15
16
17
Sheet2


Thank you all</SPAN></SPAN>

Excel 2000</SPAN></SPAN>
Regards,</SPAN></SPAN>
Moti</SPAN></SPAN>
 
Last edited:

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN
Assuming you always want to copy from Column E to Column S

and lastrow is always dependent on Column "E"

Try this:
Code:
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
 
Upvote 0
Assuming you always want to copy from Column E to Column S

and lastrow is always dependent on Column "E"

Try this:
Code:
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
:)
 
Upvote 0

Forum statistics

Threads
1,224,748
Messages
6,180,721
Members
452,995
Latest member
isldboy

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top