Boa noite Heleniks,

Estou com uma dúvida. Qual o critério de filtragem? Ou você quer filtrar manualmente usando o comando 'Filtro' e depois ativar a macro para copiar o que estiver na tela da planilha 1?

att,

Então o critério é linhas que possuírem a informação que contem na célula "B2:B3" que foi ativa previamente antes do código ser exibido

eu usei primeiramente a função do Excel de filtro avançado para fazer a filtragem e colagem da plan1 para a plan2 e gravei em macro

Sheets("Planilha2").Activate
ActiveSheet.Range("B2:B3").Select 

Sheets("Planilha1").Range("B2:L1000").AdvancedFilter Action:=xlFilterCopy, _
[color=#0000FF]CriteriaRange:=ActiveCell[/color].Range("A1:A2"), CopyToRange:=ActiveCell.Offset(3, _
0).Range("A1"), Unique:=False

depois combinei com a gravação em macro da filtragem da plan1 e excluir as células filtradas na própria plan1.

Sheets("Planilha1").Activate
ActiveSheet.Range("H2").Select
ActiveSheet.Range("B2:L1000").[color=#FF0000]AutoFilter[/color] Field:=7, Criteria1:="concluida"
ActiveCell.Offset(1, -6).Range("A1:L1000").Select
Selection.EntireRow.Delete
ActiveSheet.Range("B2:L1000").AutoFilter Field:=7
ActiveCell.Offset(-2, -1).Range("A1").Select

esta tudo automatizado. inclusive a filtragem com o auto filtro.
não sei se eu te respondi adequadamente.

Disponibiliza o arquivo com alguns dados que fica facil alguem ajudar, inclusive mostre o resultado esperado.

Coloquei algumas instruções na planilha em anexo, vejam se estar mais claro. Se a macro não estiver habilitada é só criar uma idêntica a esta:

Sub Copiaeexclui()

  Sheets("Planilha2").Activate
    ActiveSheet.Range("B2:B3").Select

    Sheets("Planilha1").Range("B2:L1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=ActiveCell.Range("A1:A2"), CopyToRange:=ActiveCell.Offset(3, _
        0).Range("A1"), Unique:=False
        
    Sheets("Planilha1").Activate
    ActiveSheet.Range("H2").Select
    ActiveSheet.Range("B2:L1000").AutoFilter Field:=7, Criteria1:="concluida"
    ActiveCell.Offset(1, -6).Range("A1:L1000").Select
    Selection.EntireRow.Delete
    ActiveSheet.Range("B2:L1000").AutoFilter Field:=7
    ActiveCell.Offset(-2, -1).Range("A1").Select
End Sub

Heleniks, se entendi corretamente, você irá filtrar sempre pelo Criterio "concluida", se for isto, não precisa definir o criterio no Range, pode ser direto na rotina, desta forma me baseando pelo que eu disse, utilize a rotina abaixo.

Você pode apagar o Criterio que esta na Planilha2 em "B2:B3", esta rotina irá selecionar a Planilha1, realizar o Filtro, copiar para a Planilha2 o resultado e em seguida Deletar da Planilha1, e toda vez que executar, se atendido o Criterio as filtragens serão copiadas sempre após a última linha preenchida na Planilha2.

Faça os testes e veja se seria isto.

Sub Filtrando_STATUS_concluida()

    Dim LR As Long

    'Seleciona a Aba
    Sheets("Planilha1").Select
    
    'Aplica o Filtro pelo Critério "concluida"
    Selection.AutoFilter Field:=7, Criteria1:="concluida"
    
    'Conta as Linhas Visiveis
    LR = Range("B" & Rows.Count).End(xlUp).Row
    
    'Copia para a aba "Planilha2" somente as celulas filtradas
    Range("B3:L" & LR).SpecialCells(xlCellTypeVisible).Copy Destination:= _
                    Sheets("Planilha2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
    
    'Deabilita mensagem de alerta
    Application.DisplayAlerts = False
    
    'Deleta as Linhas Filtradas visiveis
    Range("B3:L" & LR).SpecialCells(xlCellTypeVisible).Delete
    
    'Refaz o Filtro
    ActiveSheet.Range("B2:L1000").AutoFilter Field:=7
        
    'Restaura mensagem de Alerta
    Application.DisplayAlerts = True

End Sub

Qualquer duvida retorne.

[]s

P.E.R.F.E.I.T.O!!!!!!

Nossa, muito obrigada!!!! Que bom que você conseguiu intender essa explicação toda torta minha rsrsrs.
Você acabou tendo que refazer toda a macro esquisita que eu havia feito kkk. Mas isso foi ótimo que assim aprendi outros códigos =D.
Não tenho como expressar minha gratidão Mauro! Problema completamente resolvido!! <3