Excel Criando um menu de pesquisa para Inventário

Nightmaree · 13 de maio de 2021

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!