Saberexcel - o site das macros

Esta macro deleta valores e  linhas onde determinados valores estão inseridos  neste caso a palavra "Saber", observe que aqui também ensino como voce poderá copiar dados de uma outra planilha ou da mesma folha de planilha de forma bem simples, alias todo meu trabalho será voltado para tentar fazer um tipo de programação bem simples e de fácil entendimento. 
veja as Planilhas exemplos COMO FAZER - Programação MS Excel VBA - Saberexcel.

Option Explicit
 
Sub Deletar_com_AutoFiltro()
    Dim vDeletaValor As String
    Dim vRange As Range
    Dim vModoCalcular As Long
 
    With Application
        vModoCalcular = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
 
    'preencha o valor que voce deseja excluir
    'Variavel  vDeletaValor = "<>'Saber"  'inserir diferente<> deleta todas as palavras diferentes "Saber"
    vDeletaValor = "Saber"
 
    'Use a folha de planilha com o nome que desejar neste caso é direcionado para planilha ativa
    With ActiveSheet
 
        'primeiramente deverá remover o autofiltro
        .AutoFilterMode = False
 
        'aplicando o autofiltro e critérios para coluna(A)
        .Range("A1:A" & .Rows.Count).AutoFilter Field:=1, Criteria1:=vDeletaValor
 
        With .AutoFilter.Range
            On Error Resume Next
            Set vRange = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                                .SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
            If Not vRange Is Nothing Then vRange.EntireRow.Delete
        End With

        'Removendo autofiltro novamente
        .AutoFilterMode = False
    End With
 
    With Application
        .ScreenUpdating = True
        .Calculation = vModoCalcular
    End With
    [D6].Value = "Todas as linhas com as palavras [Saber] foram deletas......"
 End Sub

Essa macro é um jeito simples de copiar alguma que ensino nas planilhas dos módulos como fazer - Programação MS Excel VBA
observe como fica bem mais simples e funciona com uma performance muito maior.

Sub copiar_teste()
Saber2.[A1:A105].Copy Saber1.[A1]   'busca os dados pelo nome da folha de código.
[D6].Value = "Todos os dados foram copiados para o teste!"
End Sub





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha contendo a macro acima