Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) And Target > 0 Then
If Not Intersect(Target, [C41:C280]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
If Cells(Target.Row, 11) = "" Then
Cells(Target.Row, Target.Column + 8).Select
End If
Application.EnableEvents = True
End If
End If
End Sub