BeforeDoubleClick Multiple Ranges

Hello previously someone on here helped me with the following.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Count > 1 Or Intersect(Target, Range("D4:D9")) Is Nothing Then Exit Sub
    Select Case Target.Value
        Case Is = ""
            Target.Font.Name = "Wingdings"
            Target.Font.Size = "24"
            Target.Value = "ü"
        Case Is = "ü"
          Target.Font.Size = "28"
            Target.Value = "û"
        Case Is = "û"
            Target.ClearContents
    End Select
    Cancel = True
End Sub

However now I need to add the below to it.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Count > 1 Or Intersect(Target, Range("D10:D40")) Is Nothing Then Exit Sub
    Select Case Target.Value
        Case Is = ""
            Target.Font.Name = "Wingdings"
            Target.Font.Size = "24"
            Target.Value = "ü"
        Case Is = "ü"
          Target.Font.Size = "28"
            Target.Value = "û"
        Case Is = "û"
            Target.Font.Name = "Calibro"
            Target.Font.Size = "8"
            Target.Value = "N/A"
        Case Is = "N/A"
            Target.ClearContents
    End Select
    Cancel = True
End Sub

So the first range D4:D9 cycles through check, x, blank. The second range D10:D40 cycles through check, x, N/A, blank. I just don't know how to combine them.