Boa noite!!

Seria algo como isso?

Sub AleVBA_14439()
Dim lastRow As Long, lr As Long
Dim dDate1 As Long
Dim dDate2 As Long
Dim Orig As Worksheet, Dest As Worksheet

Set Orig = Worksheets("Lançamentos") 'Configura a guia de origem dos dados
Set Dest = Worksheets("Relatorio") 'Configura a guia destino dos dados
'Encontra a ultima linha de cada guia
lastRow = Orig.Range("A" & Rows.Count).End(xlUp).Row
lr = Dest.UsedRange.Rows(UBound(Dest.UsedRange.Value)).Row
'Verifica quais as datas como critério
dDate1 = DateValue(Format(Dest.Range("D7"), "dd/mm/yyyy"))
dDate2 = DateValue(Format(Dest.Range("E7"), "dd/mm/yyyy"))
'Desliga a tela de atualização
Application.ScreenUpdating = False
    Dest.Activate
'Limpa as células da guia para onde os dados são copiados
    With Dest.Range(Cells(10, 1), Cells(lr, 14))
        .ClearContents
    End With
'Filtra e Copia os dados  baseados em 3 critérios (Cod, DataInc e DataFin)
    With Orig
        .AutoFilterMode = False
        With .Range("A4:N4")
            .AutoFilter
            If Dest.Range("A5").Value <> vbNullString Then .AutoFilter Field:=13, Criteria1:=Dest.Range("D5").Value
            If Dest.Range("A5").Value <> vbNullString Then .AutoFilter Field:=1, Criteria1:=">=" & dDate1, Operator:=xlAnd, Criteria2:="<=" & dDate2
            .Offset(1, 0).Resize(.CurrentRegion.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy
            Dest.Range("A10").PasteSpecial xlValues
        End With
    End With
'Liga a tela de atualização e desliga o modo de copia
    With Application
        .ScreenUpdating = True
        .CutCopyMode = False
    End With
    
End Sub

Att

Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, seu anexo foi compactado.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Olá. Boa tarde.
Coloquei a formula que me enviou na planilha e fiz alguns ajustes. ela está funcionando perfeitamente. o único problema é que ela não esta
lançando a data do caixa junto com os dados no hora da transferência. não consegui acertar este detalhe.
Gostaria que se possível uma ajuda neste problema.
Obrigado pela atenção mais uma vez. Ademir

Boa tarde. fiz algumas modificações na planilha e ela está funcionando bem. Só não consigo transferir a data do movimento de caixa na planilha dados para
cada planilha correspondente aos dados transferidos. Gostaria que fizessem a gentileza de me ajudar, pois já quebrei a cabeça e não consegui.
Obrigado mais uma vez pela atenção. um abraço. Ademir.

Obrigado Pessoal. Acabei encontrando a solução. A ajuda de vocês foi muito importante. Um abraço.

Bom dia!!

O meu exemplo não te ajudou em nada?

Poste sua solução!!!

Att

Caro amigo.
Tive um problema grave com meu micro e perdi todo o meu trabalho> estou Recuperando o que consigo. Nesta Planilha fiquei com este Problema novamente. Tenho uma macro para distribuir os dados nas planilhas competentes que funciona perfeitamente até eu limpar a planilha de dados e inserir os novos dados do mês seguinte. Na hora de distribuir estes dados novos, os mesmos sobrepõem os dados lançados no mês anterior. Sou meio leigo no excel VBA, pro isso preciso que me ajudem a encontrar o erro desta fórmula. Na época inseri esta fórmula que recebi de vocês e com alguns ajustes ela tinha funcionado parcialmente. Venho encarecidamente Pedir para que
me ajudem a encontrar o erro que está ocasionando tal problema.

Certo de contar com sua costumeira atenção. Desde já, agradeço. Um abraço. Ademir.