I have this code, which works, but it is incredibly slow. I have been trying to find a way to optimize it but can't. I thought about selecting all the rows first, and then hiding selection, but can't figure that out. I also thought about selecting/hiding ranges at time, rather than individual rows, but can't figure that out either. Any help would be appreciated.

Objective: Hide all rows within a range that contain "" within column 6.

Sub HIDE()
    
    Dim r1 As Range, c6 As Range

    Set r1 = Range("A2:F254")

    For Each c6 In r1
        If c6 = "" Then
            c6.EntireRow.Hidden = True
        Else
            c6.EntireRow.Hidden = False
        End If
    
    Next c6
    
    Range("A2").Select
    
End Sub
or

Sub HIDE()
    
    Dim r1 As Range, c6 As Range

    Set r1 = Range("A2:F254")

    For Each c6 In r1
        If c6 = "" Then
            c6.EntireRow.Select
            Selection.EntireRow.Hidden = True
        End If
    
    Next c6
    
    Range("A2").Select
    
End Sub