Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Address = "$C$7" And Target.Count = 1) Or (Target.Address = "$C$16" And Target.Count = 1) Or (Target.Address = "$E$16" And Target.Count = 1) Then
Application.SendKeys ("%{DOWN}")
End If
End Sub