Copy & Past to the last row of a certain column

[IKZOUHETNIETWETEN]

I want it to copy the data in sheet 'te' (all of it) and paste it in AJ261 (sheet TIMESPAN) below the other data. I want to use the last row thing.
I made this

Sub d()
Set sh = Sheets("TIMESPAN")
Set myRng = sh.Range("AJ:AL")
Set sl = Sheets("te")

Set myNewRng = sl.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
myRng.Copy
myRng.PasteSpecial Paste:=xlPasteValues
End Sub

This one kinda works, i just need to paste it after the last data.
anyone a solution? thanks!
test - Copy.xlsm

[xladept]

Hi,

This seems to work:

Please Login or Register  to view this content.