Application VisualBasic Script

Sub AssignDown()
         Application.OnKey "{Down}", "DownTen"
     End Sub
     Sub DownTen()
         ActiveCell.Offset(10, 0).Select
     End Sub
     Sub ClearDown()
         Application.OnKey "{Down}"
     End Sub