Experimente o código abaixo e diga se esta no caminho que deseja

Option Explicit

Private Sub Baixar()
'Declaração de variaveis
Dim pBase As Worksheet, pDest As Worksheet
Dim dInic As Date, dFinal As Date
Dim x As Long, y As Long
'Atribui os nomes das planilhas às variaveis
Set pBase = Sheets("Honorários")
Set pDest = Sheets("Baixas")
'Atribui as datas às variaveis
dInic = pDest.Range("C4").Value 'data da ultima baixa
dFinal = pDest.Range("C9").Value 'data da baixa atual
pDest.Range("A17:K10000").ClearContents
'Inicia loop para esconder as linhas anteriores a data inicial
y = 18
For x = 6 To Application.WorksheetFunction.Max(pBase.Range("B:B")) + 6
    If pBase.Range("Q" & x) <= dInic And pBase.Range("Q" & x) <> "" Then
        pBase.Rows(x).EntireRow.Hidden = True
    ElseIf pBase.Range("Q" & x) > dInic And pBase.Range("Q" & x) <= dFinal Then
        pDest.Range("B" & y) = pBase.Range("B" & x)
        pDest.Range("C" & y) = pBase.Range("C" & x)
        pDest.Range("D" & y) = pBase.Range("D" & x)
        pDest.Range("E" & y) = pBase.Range("E" & x)
        pDest.Range("F" & y) = pBase.Range("F" & x)
        pDest.Range("G" & y) = pBase.Range("G" & x)
        pDest.Range("H" & y) = pBase.Range("J" & x)
        pDest.Range("J" & y) = pBase.Range("Q" & x)
        pBase.Rows(x).EntireRow.Hidden = False
        y = y + 1
    Else
        pBase.Rows(x).EntireRow.Hidden = False
    End If
Next
End Sub

A menos que eu tenha feito errado, Reinaldo, não apareceu resultado...

Era só colar a macro em um módulo, correto?

Da uma olhada, por favor...

Exatamente Pedro, adicione em um modulo, e execute,
Em seu exemplo (o disponibilizado acima e anteriormente) está especificado as datas 31/12/2010 (ultima baixa) e 31/5/2013 (Baixar até);
então "rodando" assim, nada acontece, pois essas datas não estão disponíveis na planilha Hono...
Mude para (por exemplo) Ultima baixa 30/087/2013 e baixar até 31/12/2013 (veja no anexo)

Ah, ratiada minha, muito bom Reinaldo!

Ficou Show!

Agora vou mover estas duas abas pra planilha original, e da mesma forma, é só criar um módulo lá, colar o código e salvar com este forma *.xlsm, correto?

(Ou se, salvando só como *.xlsx funiona?)

MUITO OBRIGADO ATÉ AQUI!

É necessário salvar em .xlsm (pasta de trabalho habilitada para macros)

Reinaldo, só notei agora, depois de alguns testes...

Por gentileza, tu podes verificar pra mim?

Exemplo 1: com data 01/01/2013 não deveria mostrar nada.
Exemplo 2: utilizando como ultima data 05/09/2013, ele repete o ultimo processo duas vezes.

Não identifiquei nada no código que gerasse esse problema, pode ser que seja na planilha...

Foi alterado o inicio da linha na sheet "Baixas", então as "limpeza" da consulta anterior não está correta
Altere:

pDest.Range("A17:K10000").ClearContents

Para:

pDest.Range("A12:K10000").ClearContents

Veja se está correto

PERFEITO!

Muito obrigado!