Vba code to hide specific cells

Or
When all the rows are visible (not hidden), use this as a toggle.

Sub ToggleBody()
Dim rngSection As Range, sh1 As Worksheet
    Set sh1 = Worksheets("Codes")
    Set rngSection = Union(sh1.Rows("19:32"), sh1.Rows("34:56"), sh1.Rows("58:77"), sh1.Rows("79:91"), sh1.Rows("93:102"))
        With rngSection.EntireRow
            .Hidden = Not .Hidden
        End With
End Sub

Change the other macros accordingly.