Guru do Excel e Power BI

Sub DeletarLinhas_2()
Dim Linha As Long
Dim valor As String
Dim verificador As String
Application.ScreenUpdating = False

'Verificar e apagar células com erro
On Error GoTo Achouerro
For Linha = Range("A1000000").End(xlUp).Row To 11 Step -1
    verificador = Cells(Linha, 1)
Next Linha
GoTo Início

Achouerro:
    Cells(Linha, 1).ClearContents
    Resume
    
Início:
On Error GoTo 0
For Linha = Range("A1000000").End(xlUp).Row To 11 Step -1
    '1. verificar se é uma conta repetida; se for, deletar e deletar a linha logo acima e abaixo
        If Left(Cells(Linha, 1), 5) = "Conta" Then
            If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(Linha, 1)) > 1 Then
                Cells(Linha, 1).EntireRow.Delete
                Cells(Linha, 1).EntireRow.Delete
                Linha = Linha - 1
                Cells(Linha, 1).EntireRow.Delete
            End If
    '2. verificar se é uma linha sobre conta; se for, só limpar mas deixar
        ElseIf Left(Cells(Linha, 1), 5) = "_____" Then
            Cells(Linha, 1).ClearContents
    '3. Verificar se a coluna C é vazia, e se não for linha logo após "Conta", deletar
        ElseIf Cells(Linha, 3) = "" And Left(Cells(Linha - 1, 1), 5) <> "Conta" Then
            Cells(Linha, 1).EntireRow.Delete
    '4. Eliminar também cabeçalhos
        ElseIf Cells(Linha, 3) = "Filial" Then
            Cells(Linha, 1).EntireRow.Delete
        End If

Next Linha
MsgBox "Formatação efetuada com sucesso!", vbInformation
Application.ScreenUpdating = True
Range("A1").Select
Exit Sub


End Sub