엑셀 VBA 상대 위치로 선택하기

번거로운 반복 작업을 한 번에 해결하기 위해 엑셀의 VBA스크립트를 사용하게 되는데, 현재 위치를 기준으로 일정한 범위를 선택하고자 할때 사용할 수 있는 코드이다.
[요점]
현재셀 : ActiveCell
현재로부터 아래로 네 칸까지 :  ActiveCell.Offset(4, 0))
선택 : Select

For I = 1 To 10

Selection.Copy
Range(ActiveCell, ActiveCell.Offset(4, 0)).Select
ActiveSheet.Paste
Selection.End(xlDown).Select

Next I