Excel VisualBasic Script

Sub DownTen()
   ActiveCell.Offset(10, 0).Select
End Sub