Trigger Cells Code

Hello,

I am a beginner in learning code in Excel and wonder if anybody can help me.

I have a Trigger Cell code within the sheet code and I was wondering if there was any way to re-write this, a) to make it easier as I have to do this for 50 separate Trigger Cells, b) the macro runs quite slowly.

Any tips or help would be greatly appreciated!

Thank you,

Paris

Private Sub Worksheet_Change(ByVal Target As Range)

Dim TriggerCell1 As Range
Set TriggerCell1 = Range("F9")

    If TriggerCell1.Value = "SUPERDRUG HOTSPOT" Then
        Rows("10:15").Hidden = False
    Else
    Rows("10:15").Hidden = True
    End If
    
        If TriggerCell1.Value = "SUPERDRUG FSDU" Then
        Rows("16:17").Hidden = False
    Else
    Rows("16:17").Hidden = True
    End If
    
        If TriggerCell1.Value = "SUPERDRUG QFSDU" Then
        Rows("22:23").Hidden = False
        Else
    Rows("22:23").Hidden = True
    End If
    
        If TriggerCell1.Value = "SUPERDRUG GE" Then
        Rows("18:19").Hidden = False
            Else
    Rows("18:19").Hidden = True
    End If
        
        If TriggerCell1.Value = "SUPERDRUG BLIP" Then
        Rows("20:21").Hidden = False
            Else
    Rows("20:21").Hidden = True
    End If
       
Dim TriggerCell2 As Range
Set TriggerCell2 = Range("J9")

    If TriggerCell2.Value = "SUPERDRUG HOTSPOT" Then
        Rows("24:29").Hidden = False
    Else
    Rows("24:29").Hidden = True
    End If
    
        If TriggerCell2.Value = "SUPERDRUG FSDU" Then
        Rows("30:31").Hidden = False
    Else
    Rows("30:31").Hidden = True
    End If
    
        If TriggerCell2.Value = "SUPERDRUG QFSDU" Then
        Rows("32:33").Hidden = False
        Else
    Rows("32:33").Hidden = True
    End If
    
        If TriggerCell2.Value = "SUPERDRUG GE" Then
        Rows("34:35").Hidden = False
            Else
    Rows("34:35").Hidden = True
    End If
        
        If TriggerCell2.Value = "SUPERDRUG BLIP" Then
        Rows("36:37").Hidden = False
            Else
    Rows("36:37").Hidden = True
    End If
    
Dim TriggerCell3 As Range
Set TriggerCell3 = Range("L9")

    If TriggerCell3.Value = "SUPERDRUG HOTSPOT" Then
        Rows("38:43").Hidden = False
    Else
    Rows("38:43").Hidden = True
    End If
    
        If TriggerCell3.Value = "SUPERDRUG FSDU" Then
        Rows("44:45").Hidden = False
    Else
    Rows("44:45").Hidden = True
    End If
    
        If TriggerCell3.Value = "SUPERDRUG QFSDU" Then
        Rows("46:47").Hidden = False
        Else
    Rows("46:47").Hidden = True
    End If
    
        If TriggerCell3.Value = "SUPERDRUG GE" Then
        Rows("48:49").Hidden = False
            Else
    Rows("48:49").Hidden = True
    End If
        
        If TriggerCell3.Value = "SUPERDRUG BLIP" Then
        Rows("50:51").Hidden = False
            Else
    Rows("50:51").Hidden = True
    End If
       
Dim TriggerCell4 As Range
Set TriggerCell4 = Range("N9")

    If TriggerCell4.Value = "SUPERDRUG HOTSPOT" Then
        Rows("52:57").Hidden = False
    Else
    Rows("52:57").Hidden = True
    End If
    
        If TriggerCell4.Value = "SUPERDRUG FSDU" Then
        Rows("58:59").Hidden = False
    Else
    Rows("58:59").Hidden = True
    End If
    
        If TriggerCell4.Value = "SUPERDRUG QFSDU" Then
        Rows("60:61").Hidden = False
        Else
    Rows("60:61").Hidden = True
    End If
    
        If TriggerCell4.Value = "SUPERDRUG GE" Then
        Rows("62:63").Hidden = False
            Else
    Rows("62:63").Hidden = True
    End If
        
        If TriggerCell4.Value = "SUPERDRUG BLIP" Then
        Rows("64:65").Hidden = False
            Else
    Rows("65:65").Hidden = True
    End If

Dim TriggerCell5 As Range
Set TriggerCell5 = Range("P9")

    If TriggerCell5.Value = "SUPERDRUG HOTSPOT" Then
        Rows("66:71").Hidden = False
    Else
    Rows("66:71").Hidden = True
    End If
    
        If TriggerCell5.Value = "SUPERDRUG FSDU" Then
        Rows("72:73").Hidden = False
    Else
    Rows("72:73").Hidden = True
    End If
    
        If TriggerCell5.Value = "SUPERDRUG QFSDU" Then
        Rows("74:75").Hidden = False
        Else
    Rows("74:75").Hidden = True
    End If
    
        If TriggerCell5.Value = "SUPERDRUG GE" Then
        Rows("76:77").Hidden = False
            Else
    Rows("76:77").Hidden = True
    End If
        
        If TriggerCell5.Value = "SUPERDRUG BLIP" Then
        Rows("78:79").Hidden = False
            Else
    Rows("78:79").Hidden = True
    End If

End Sub