Скрыть строки по условию

Sub test()
    Dim i&
    For i = 1 To 100
        If Range("F" & i).Value = "" Then
            Rows(i).EntireRow.Hidden = True
            Else: Rows(i).EntireRow.Hidden = False'
        End If
    Next
End Sub

Sub tt()
    Dim arr(), i As Long
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        arr = Range("f5:H" & Cells(Rows.Count, "B").End(xlUp).Row - 3)
        For i = 1 To UBound(arr)
            If Len(arr(i, 1)) + Len(arr(i, 2)) + Len(arr(i, 3)) = 0 Then Rows(i + 4).Hidden = True
        Next
        .ScreenUpdating = False
        .Calculation = xlCalculationAutomatic
    End With
End Sub

   
Dim j As Integer
   
   ActiveSheet.Cells.EntireRow.Hidden = False
   With ActiveSheet
      For j = 5 To 286
         If .Cells(j, 6).Text = "" And (.Cells(j, 7).Text = "" And .Cells(j, 8).Text = "") Then
            .Cells(j, 6).EntireRow.Hidden = True
         End If
      Next j
   End With
End Sub

Sub tt_1()
'With Application: .ScreenUpdating = False: .Calculation = xlCalculationManual
Rows.Hidden = False
On Error GoTo m100
r = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(5, 6), Cells(r, 6)).SpecialCells(4).Offset(, 1) _
.SpecialCells(4).Offset(, 1).SpecialCells(4).Rows.Hidden = True
'.ScreenUpdating = False: .Calculation = xlCalculationAutomatic: End With
Exit Sub
m100: MsgBox "Ничего не скрыто тчк"
End Sub