Guru do Excel e Power BI

Sub OCULTAR_REEXIBIR_2()
Dim wsPlan1 As Worksheet
Dim UltL    As Long
Dim i       As Long

    Set wsPlan1 = ThisWorkbook.Worksheets("Plan1")
    UltL = wsPlan1.Cells(Rows.Count, 3).End(xlUp).Row
    
    wsPlan1.Cells.EntireRow.Hidden = False
    
    For i = 2 To UltL
        If Not wsPlan1.Cells(i, 3).Value = Empty Then
            wsPlan1.Rows(i + 2 & ":" & i + 2).EntireRow.Hidden = True
        End If
    Next i
    
    Set wsPlan1 = Nothing

End Sub