Guru do Excel e Power BI

Sub Deletar_Linhas()
Dim i As Long
Dim vezes As Long
vezes = Range("A1").SpecialCells(xlCellTypeLastCell).Row

Application.ScreenUpdating = False
For i = vezes To 1 Step -1

    If Cells(i, 2) = "" Then

        If Left(Cells(i + 1, 2), 5) <> "Conta" Then
            Cells(i, 2).EntireRow.Delete
        End If
    End If
    
Next i
Application.ScreenUpdating = True
msgbox "Alterações efetuadas com sucesso!",vbinformation

End Sub

Sub DeletarLinhas()
Dim linha As Long, coluna As Long, i As Long

Application.ScreenUpdating = False

For linha = Range("C1000000").End(xlUp).Row To 1 Step -1
    If Mid(Cells(linha, 2), 3, 1) = "/" Then: GoTo Jump
    If Left(Cells(linha + 1, 3), 5) <> "Conta" Then
        Do While Cells(linha, 3) = "" Or Cells(linha, 2) = "Histórico" Or Left(Cells(linha, 2), 6) = "Centro"
            Cells(linha, 3).EntireRow.Delete
            If Left(Cells(linha + 1, 3), 5) = "Conta" Then: GoTo Jump
        Loop
Jump:
    End If
Next linha
Application.ScreenUpdating = True


End Sub