vba code copy range to last row and paste into another sheet

[DanielFran]

Hi,

I need to write a vba code that copies a range in sheet 1 from A7:J7 until the last row with data, than paste into sheet 2 in cell A5.


Many thanks,
Daniel

 

[JackDanIce]

Try:

Sub Macro1

Dim x as Long

x = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row - 6
Sheets("Sheet2").Cells(5, 1).Resize(x, 10).Value = Sheets("Sheet1").Cells(7,1).Resize(x, 10).Value

End Sub

 

[DanielFran]

Hi JackDan,

It worked perfectly. Thank you very much.

 

[JackDanIce]

You're welcome Daniel, thanks for the feedback.