Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B7:C12")) Is Nothing Or IsNumeric(CStr(Target.Cells(1, 1))) Then Exit Sub
Dim cel As Range
For Each cel In Range("B7:C12")
If Not IsNumeric(CStr(cel)) Then cel.Select: Exit For
Next
End Sub