Copy different area and paste to another sheet

[haseft]

hej,
copy with variable lastrow dosent work.

Sub Makro5()
'
Dim sht As Worksheet
Dim lastrow As Long
Set sht = ThisWorkbook.Worksheets("Sheet1")
lastrow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row '

Worksheets("Sheet1").Range("A2:AF& lastrow,AG2:AG& lastrow,AJ2:AJ& lastrow").Copy Worksheets("Sheet3").Range("A2")

'Worksheets("Sheet1").Range("A2:AF400,AG2:AG400,AJ2:AJ400").Copy Worksheets("Sheet3").Range("A2")'    works
End Sub

 

[Fluff]

Try it like

Worksheets("Sheet1").Range("A2:AG" & lastrow & ",AJ2:AJ" & lastrow).Copy Worksheets("Sheet3").Range("A2")

 

[haseft]

Try it like

Worksheets("Sheet1").Range("A2:AG" & lastrow & ",AJ2:AJ" & lastrow).Copy Worksheets("Sheet3").Range("A2")

thanks Fluff ?

 

[Fluff]

You're welcome & thanks for the feedback.