Application VisualBasic Script

Sub ClearDown()
   Application.OnKey "{Down}"
End Sub