Amigos,

tentei fazer o seguinte...

    

Sub teste()

Application.ScreenUpdating = False
    
    Dim UltimaLinha As Long
  
    UltimaLinha = Planilha1.Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To UltimaLinha
        If (Planilha1.Range("C" & i).Value = 10)  or (Planilha1.range("C"&i).value = "") Then
              Rows(i).Delete
        End If
    Next i
    
    MsgBox "Concluído!"

End Sub

Mas mesmo assim ele ignora as linhas sem valor e parte pra próxima...

Mensagem apagada pelo usuário

Esse código até funciona, mas eu tenho que rodar ele 2x pra ele não deixar nenhuma linha com a coluna C sem valor...

Se você rodar ele 1x, ele deixa varias linhas com a coluna C sem valor, se rodar mais uma vez, ele faz a limpeza que tinha que ter feito anteriormente...

pq ?

Primeira Versão

Option Explicit

Sub teste()


Dim linha As Long

Dim linhas As Long

linhas = Range("A1").End(xlDown).Row

For linha = 2 To linhas - 1

If Plan1.Range("C" & linha).Value = 10 Or Plan1.Range("C" & linha).Value = "" Then
Plan1.Range("E" & linha).Value = "sim"

End If



Next linha
inicio:
linhas = Range("A1").End(xlDown).Row
For linha = 2 To linhas

If Plan1.Range("E" & linha).Value = "sim" Then
Plan1.Range("E" & linha).EntireRow.Delete
GoTo inicio
End If
Next linha


End Sub

Segunda Versão

Option Explicit

Sub teste()


Dim linha As Long

Dim linhas As Long

linhas = Range("A1").End(xlDown).Row

For linha = 2 To linhas - 1

If Plan1.Range("C" & linha).Value = 10 Or Plan1.Range("C" & linha).Value = "" Then
Plan1.Range("C" & linha).Value = "sim"

End If



Next linha
inicio:
linhas = Range("A1").End(xlDown).Row
For linha = 2 To linhas

If Plan1.Range("C" & linha).Value = "sim" Then
Plan1.Range("C" & linha).EntireRow.Delete
GoTo inicio
End If
Next linha


End Sub