Simple script to hide spreadsheet rows based on criteria.

HideRows.vb

Sub HideRows()

Dim testRow As Integer
Dim testSht As Worksheet
Set testSht = Worksheets("Sheet1")
testRow = 2

While Cells(testRow, 1).Value <> "Total"
    If Cells(testRow, 2).Value = "" And Cells(testRow, 4).Value = "" And Cells(testRow, 6).Value = "" Then
        If Cells(testRow, 1).Value <> "" Then
            Rows(testRow).EntireRow.Hidden = True
        End If
    End If
    testRow = testRow + 1
Wend
    
End Sub