Can someone help me combine these two Private Subs. They are both identical subs entering different values into different ranges. They are both contained in excel sheet1. The top sub enters certain values into a specific range. The bottom sub enters different values into a different range. I need them to both work together. Seperately they work fine. I've tried many different ways to get them to work together; however, I'm just not advanced enough. Thanks in advance.

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

If Target.Count > 1 Or Intersect(Target, Range("D11:O11, D12:O12, D13:O13")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Target.Value = "1"
Case Is = "1"
Target.Value = "2"
Case Is = "2"
Target.Value = "3"
Case Is = "3"
Target.Value = "4"
Case Is = "4"
Target.ClearContents
End Select
Cancel = True

End Sub
-----------------------------------------------------------------------------------------------------------

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

If Target.Count > 1 Or Intersect(Target, Range("F20:F23, J20:J23, N20:N23")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Target.Value = "85"
Case Is = "85"
Target.Value = "170"
Case Is = "170"
Target.Value = "255"
Case Is = "255"
Target.Value = "340"
Case Is = "340"
Target.Value = "425"
Case Is = "425"
Target.ClearContents
End Select
Cancel = True

End Sub
------------------------------------------------------------------------------