vba 여러 행 수정하기

Sub 매크로1()
'
' 매크로1 매크로
'
' 바로 가기 키: Ctrl+q
'

ActiveCell.FormulaR1C1 = "추가할 텍스트 " & ActiveCell.Value
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

End Sub