Boa noite!!!

Seja bem vindo!!!

Poste seu modelo.

Boa noite Max

Podemos tentar fazer o que vc deseja, mas para facilitar anexe um exemplo comptactado da tua planilha demonstrando como vc quer o resultado.

Um abraço.

Quero manter os dados la nas planilhas e na planilha de abril, pegar somente ate o dia 12.
Uma coisa que esqueci: nas planilhas, as datas podem repetir.

Seria algo como: Select * from Fevereiro, Marco, Abril Where data >30/01 e < 12/04, grosseiramente falando

Boa tarde!!!

Veja se te juda..

Sub CopyData()
Dim shREPORT As Worksheet
Dim shSOURCE As Worksheet
Dim strNAME(2) As String
Dim i As Long
Dim r As Long
Dim n As Long
Dim b As Byte
Const dDate As Date = "12 April 2012"
strNAME(0) = "Fevereiro"
strNAME(1) = "Março"
strNAME(2) = "Abril"
Set shREPORT = ThisWorkbook.Worksheets("Relatório")
r = 11
For b = 0 To 2
    Set shSOURCE = ThisWorkbook.Worksheets(strNAME(b))
    With shSOURCE
        n = .Cells.SpecialCells(xlCellTypeLastCell).Row
        For i = 2 To n
            If b = 2 And IsDate(.Cells(i, 2)) Then
                If CDate(.Cells(i, 2)) <= dDate And .Cells(i, 2) <> "" Then
                    .Rows(i).Copy Destination:=shREPORT.Rows(r)
                    r = r + 1
                End If
            ElseIf .Cells(i, 1) <> "" Then
                .Rows(i).Copy Destination:=shREPORT.Rows(r)
                r = r + 1
            End If
            
        Next
    End With
Next
End Sub

Boa tarde Max

Sempre poste a planilha com alguns dados ficticios preenchidos para facilitar os testes e a própria interpretação.

Abraço.

bo tarde!!!

Faça teste com esse anexo, e depois retorne ao fórum pra dizer se deu certo.

Caso a ajuda foi útil, click na mãozinha e marque o tópico como resolvido!!

Att++++

Boa tarde!
alexandrevba, em partes deu certo sim! unica coisa que aconteceu, foi por exemplo: eu inseri uma data acima do dia 12/04 e mesmo assim ele copiou...

Fiz uma pequena alteração no codigo proposto pelo Alexandre,
veja se lhe atende

Valeeu! deu certinho com oque eu preciso! Muito obrigado pela ajuda Reinaldo e alexandrevba.