Copy from cell to varying cell

[femma]

Hi!


I would like to copy an area that varies in rows. So lastrow in my code is the last populated row and I would want to copy everything from the cell B6 to this last row and the nine columns next to it.
How could I do this correctly?
This is my code that is not yet working

Range(("B6" & LastRow&Offset(0,9)).Copy Destination:=Sheets(myvalue)

Thanks for your help!

 

[My Aswer Is This]

It would look something like this:

Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B6:K" & Lastrow).Copy Destination:=Sheets(myvalue).Range("A1")

 

[femma]

Thank you for your reply!

 

[My Aswer Is This]

Or here are two different ways

Sub Test()
Dim Lastrow As Long
Dim myvalue As String
myvalue = "Sheet2"
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B6:K" & Lastrow).Copy Destination:=Sheets(myvalue).Range("A1")
Range("B6:B" & Lastrow).Resize(, 10).Copy Destination:=Sheets(myvalue).Range("A1")
End Sub