Use the OnKey method to assign a macro procedure to a single keystroke or any combination of Ctrl, Shift, and Alt with another
Sub AssignDown() Application.OnKey "{Down}", "DownTen" End Sub Sub DownTen() ActiveCell.Offset(10, 0).Select End Sub Sub ClearDown() Application.OnKey "{Down}" End Sub