Boa tarde.
Realizei pesquisa na internet e não encontrei a solução desejada.
Queria que na formatação condicional colorisse as células, porém queria que as linhas de grades permanecessem.

For I = 4 To FinalRow
    With Estoque
        If .Cells(I, 5) < .Cells(I, 3) Then
           '.Cells(I, 10) = J - (.Cells(I, 9) / .Cells(I, 7))
           .Cells(I, 6) = "Estoque Critico"
           '.Cells(I, 1) = " CRÍTICO "
           .Cells(I, 1).Resize(, 6).Interior.ColorIndex = 3
           .Cells(I, 1).Resize(, 11).Font.ColorIndex = 1
           .Cells(I, 1).Resize(, 6).Font.Bold = True
           Else
            If .Cells(I, 5) > .Cells(I, 4) Then
                '.Cells(I, 10) = (.Cells(I, 9) / .Cells(I, 8)) - J
                .Cells(I, 6) = "Estoque em Excesso"
                '.Cells(I, 1) = " "
                .Cells(I, 1).Resize(, 6).Interior.ColorIndex = 33
                .Cells(I, 1).Resize(, 6).Font.ColorIndex = 1
                .Cells(I, 1).Resize(, 6).Font.Bold = True
                Else
                 If .Cells(I, 5) > .Cells(I, 3) And .Cells(I, 5) < .Cells(I, 4) Then
                    .Cells(I, 6) = "Estoque Bom"
                    .Cells(I, 1).Resize(, 6).Interior.ColorIndex = 2
                    .Cells(I, 1).Resize(, 6).Font.Bold = True
                End If
            End If
        End If
    End With
Next I