pasting all row elements with Excel VBA

paste.xlsm

Sub 매크로1()
'
' Excel 세로줄 붙여넣기
'
' 바로 가기 키: Ctrl+E
'
    Selection.Copy
		ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Select
    ActiveSheet.Paste
    Selection.End(xlDown).Select
End Sub