VBA- Combining two Worksheet change scripts

You've hit on half of my problem alone! Wrong cell references... update below.

I'm trying to hide different rows based on a value in cell G7 for the segment highlighted in Red.
The top segment works fine, but can't combine the two.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rRow As Long
If Not Intersect(Target, Range("F15,F53,F91,F129,F167,F205,F243,F281,F319,F357")) Is Nothing Then
If Target.Address = "$F$15" Then
Rows("17:45").Hidden = True
rRow = Range("C17:C45").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$53" Then
Rows("55:83").Hidden = True
rRow = Range("C55:C83").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$91" Then
Rows("93:121").Hidden = True
rRow = Range("C93:C121").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$129" Then
Rows("131:159").Hidden = True
rRow = Range("C131:C159").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$167" Then
Rows("169:197").Hidden = True
rRow = Range("C169:C197").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$205" Then
Rows("207:235").Hidden = True
rRow = Range("C207:C235").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$243" Then
Rows("245:273").Hidden = True
rRow = Range("C245:C273").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$281" Then
Rows("283:311").Hidden = True
rRow = Range("C283:C311").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$319" Then
Rows("321:349").Hidden = True
rRow = Range("C321:C349").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False
ElseIf Target.Address = "$F$357" Then
Rows("359:387").Hidden = True
rRow = Range("C359:C387").Find(Target.Value).Row
Rows(rRow & ":" & rRow + 3).Hidden = False

Select Case Range("G7").Value
Case Is = Range("R6"):
Rows("9:390").EntireRow.Hidden = True
Rows("11:16").EntireRow.Hidden = False
Case Is = Range("R7"):
Rows("9:390").EntireRow.Hidden = True
Rows("49:54").EntireRow.Hidden = False
Case Is = Range("R8"):
Rows("9:390").EntireRow.Hidden = True
Rows("87:92").EntireRow.Hidden = False
Case Is = Range("R9"):
Rows("9:390").EntireRow.Hidden = True
Rows("125:130").EntireRow.Hidden = False
Case Is = Range("R10"):
Rows("9:390").EntireRow.Hidden = True
Rows("163:168").EntireRow.Hidden = False
Case Else:
Rows("9:390").EntireRow.Hidden = False
End Select
End If
End If
End Sub

An excel god amongst mortals, thank you very much John!

I couldn't see the wood through the trees.