Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, [D29:D35]) Is Nothing Then _
If IsNumeric(CStr(ActiveCell(0))) And ActiveCell = "" Then _
ActiveCell = ActiveCell(0) + 1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D29:D35]) Is Nothing _
And Target(2, 1) = "" Then Target.Select
End Sub