As a starter are you looking for something like this?

Sub copynext()
Dim lastrow As Integer
lastrow = Range("D21").End(xlDown).Offset(, 1).Row
Range("E21:E" & lastrow).Copy
Range("k2").Select
'One of the lines below, not both
ActiveSheet.Paste
'Selection.PasteSpecial (xlPasteAll)

End Sub