Nightmaree

Olá, tudo bem com vocês? Estou tentando criar um menu de pesquisa para gerenciar o inventário aqui da empresa, porém estou apanhando "um pouco" com o código e gostaria de pedir ajuda a vocês. Esse seria o código de pesquisa que estou tentando fazer. Sub pesquisaMENU_REPORT() 'Definindo as variávies para receber as abas da planilha Dim abaMReport As Worksheets Dim abaNTDesk As Worksheets Dim abaMNT As Worksheets 'Incluindo os valores de cada variavel com suas respectivas abas Set abaMReport = Sheets("menu_Report").Range("A7:L9999") Set abaNTDesk = Sheets("noteDesk_DB").Range("A1:M9999") Set abaMNT = Sheets("monitores_DB").Range("A1:M9999") 'Criacao do menu de pesquisa para cada aba de banco de dados If Cells(3, 1).Value = "Notebooks" Then Sheets(abaNTDesk).Copy Destination:=Sheets(abaMReport).Range("A7") With Range("A6:E249").Interior .Pattern = xlNone End With Else If Cells(3, 1).Value = "Monitores" Then Sheets(abaMNT).Copy Destination:=Sheets(abaMReport).Range("A6") With Range("A7:M9999").Interior .Pattern = xlNone End With Else End If End If End Sub E esse é o "menu" que receberia as informações das outras abas : Não sei se estou declarando as variáveis corretamente, tentei mudar as variáveis de Worksheets para Range mas quando ele executa, aparece uma compilação de erro na parte de Destination=: Poderiam me dar um luz ? Se tiver sugestões sobre melhorias tanto no código como na forma de pesquisa eu agradeceria. Agradeço desde já, obrigado!