Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim P As Range, Q As Range
Set P = Sh.[D3:H4]: Set Q = Sh.[D6:H23]
If Intersect(Target, Union(P, Q)) Is Nothing Then
P(1).Select
ElseIf Not Intersect(Target, P) Is Nothing Then
Intersect(Target, P).Select
ElseIf Not Intersect(Target, Q) Is Nothing Then
Intersect(Target, Q).Select
End If
End Sub