VBA to paste data under current data?

[JumboCactuar]

Hi,
I have a macro that pastes values from Sheet1 into a report.
But im also wanting to paste values from Sheet2 into report, but under the sheet1 data (preferably on the following page)

Can this be done? Appreciate any help

 

[CsJHUN]

Hi!

For getting the last row on the active sheet (IF column "A" is the longest):

ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

With given "details":

' This give you the last cell row number in column A
lastrow = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
' Copy the desired range on Sheet2. Please adjust it to your need
Sheets(2).range("...").Copy
Sheets(1).select
' selecting the first empty cell after last cell
Range("A" & lastrow+1).select
' then paste it
Activesheet.Paste

 

[JumboCactuar]

Great, thanks for explaining it
Ill try it out when i get in

 

[JumboCactuar]

Hi could anyone help me with a vba code for this? im not sure how to copy the following columns using the vba CsJHUN posted

I need to copy / paste values from the columns listed underneath the last row of data in report.
From Sheet (Data)
Columns (B,K,J,F,H,I,G)


To sheet (Report)
paste values from the above columns after the last row of data if possible in columns A - G under last row of current data

thanks

 

[JumboCactuar]

Bump

 

[DataMike]

If you're open to it, you could do this in Parabola (https://parabola.io/) without any VBA code. Import your sheet, connect a "Column Filter", filter down to your columns, connect a "Column reorder", re order your columns, then connect that result and the original sheet with a "Concat" object. Then export the result. Should only take a few minutes, and there's a free trial.