Bom dia! Poderiam me ajudar?

Criei um filtro avançando em VBA, com o seguinte código:

Sub filtro()

Dim db As Range
Dim crt As Range
Dim filtrada As Range
Dim nome As String

'base é minha planilha 1 onde contem todos os dados
Set db = base.Range("A9:AC9").CurrentRegion

'crt é o campo aonde coloco os dados pra pesquisar
Set crt = base.Range("A1:AB2")

'relatório é segunda planilha pra onde vai os dados da planilha base pra filtro
db.AdvancedFilter xlFilterCopy, crt, relatorio.Range("A1:AC1").CurrentRegion

Set filtrada = relatorio.Range("A1:AC1").CurrentRegion
nome = "'" & relatorio.Name & "'!"

GrCadastro.ListBox5.RowSource = nome & filtrada.Address


End Sub

Descrição do problema:

Tendo feito tudo isso, quando vou realizar qualquer pesquisa recebo essa mensagem e não sei como tratar.

O intervalo de destino não é grande o suficiente para acomodar todas as linhas copiadas. Os dados abaixo do intervalo de destino serão perdidos. Continuar a copiar mesmo assim?