simplification macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$16" Then
    Cells.EntireRow.Hidden = False: Cancel = True
End If
Select Case Target.Column
Case 1
If Target.Row > 1 And Target.Row < 65536 Then _
                Range(Cells(Target.Row + 1, 1), Cells(65536, 1)).EntireRow.Hidden = True
Case 2
    Select Case Target.Row
            Case 2 To 63

            Range(Cells(Target.Row + 1, 1), Cells(65, 1)).EntireRow.Hidden = True: Cancel = True

            Case Is > 67
                 If Target.Row < 114 Then
                    Range(Cells(Target.Row + 1, 1), Cells(115, 1)).EntireRow.Hidden = True: Cancel = True
                
                ElseIf Target.Row < 164 Then
                    Range(Cells(Target.Row + 1, 1), Cells(165, 1)).EntireRow.Hidden = True: Cancel = True
                
                ElseIf Target.Row < 214 Then
                    Range(Cells(Target.Row + 1, 1), Cells(215, 1)).EntireRow.Hidden = True: Cancel = True
                
                ElseIf Target.Row < 264 Then
                    Range(Cells(Target.Row + 1, 1), Cells(265, 1)).EntireRow.Hidden = True: Cancel = True
                
                ElseIf Target.Row < 314 Then
                    Range(Cells(Target.Row + 1, 1), Cells(315, 1)).EntireRow.Hidden = True: Cancel = True

                End If
            End Select
End Select
                    
End Sub