Possible to clean up my formula

[fan22]

Hey people,

Simple formula I have working for me when I run a query on a data sheet. The rows appear when a result is matched in the category.

It is quite repetitive and I find messy. Is it possible to simplify and clean it up ?

Thanks!!

---

Private Sub Worksheet_Change(ByVal Target As Range)


    If Range("A9").Value = "" Then
        Rows("5:11").EntireRow.Hidden = True
    ElseIf Range("A9").Value <> "" Then
        Rows("5:11").EntireRow.Hidden = False
    End If
    
    If Range("A17").Value = "" Then
        Rows("13:19").EntireRow.Hidden = True
    ElseIf Range("A17").Value <> "" Then
        Rows("13:19").EntireRow.Hidden = False
    End If
    
    If Range("A25").Value = "" Then
        Rows("21:27").EntireRow.Hidden = True
    ElseIf Range("A25").Value <> "" Then
        Rows("21:27").EntireRow.Hidden = False
    End If
    
    If Range("A33").Value = "" Then
        Rows("29:33").EntireRow.Hidden = True
    ElseIf Range("A33").Value <> "" Then
        Rows("29:33").EntireRow.Hidden = False
    End If
        
    If Range("A39").Value = "" Then
        Rows("35:41").EntireRow.Hidden = True
    ElseIf Range("A39").Value <> "" Then
        Rows("35:41").EntireRow.Hidden = False
    End If
        
    If Range("A47").Value = "" Then
        Rows("43:49").EntireRow.Hidden = True
    ElseIf Range("A47").Value <> "" Then
        Rows("43:49").EntireRow.Hidden = False
    End If


    If Range("A55").Value = "" Then
        Rows("51:57").EntireRow.Hidden = True
    ElseIf Range("A55").Value <> "" Then
        Rows("51:57").EntireRow.Hidden = False
    End If
        
    If Range("A63").Value = "" Then
        Rows("59:65").EntireRow.Hidden = True
    ElseIf Range("A63").Value <> "" Then
        Rows("59:65").EntireRow.Hidden = False
    End If
        
    If Range("A71").Value = "" Then
        Rows("67:73").EntireRow.Hidden = True
    ElseIf Range("A71").Value <> "" Then
        Rows("67:73").EntireRow.Hidden = False
    End If
    
End Sub