VBA EM MACROS

Question

Pessoal Boa Tarde,
Sera que alguem poderia me ajudar ... Estou com uma dificuldade, tenho um sistema desenvolvido em VBA esse sistema gera graficos , Tenho uma planilha onde esta todas as consolidações que efetuo  cada consolidação recebe um numero que chamamos de ID ok tenho uma outra onde tenho um botão drop dow  que quando seleciono UM ID BUSCA NESTA BASE DE DADOS as linhas que fazem referencia a esse id , ok minha dificuldade é a seguinte , quando clico em um id que tem um certo numero de dados , vamos supor 4 linhas ele gera o grafico sem nenhum problema mais ai quando quero fazer uma nova consulta com um novo numero de id e com dados differentes ele não me gera o grafico com esses dados certos  eel continua com os ddos d seleção passada;
Segue o codigo:

Sub DadosGrafico()
    Dim IdOrigem As Double
    Dim IdDestino As Double
    Dim Linha As Integer
    Dim contador As Integer
    
    Application.ScreenUpdating = False
    
    Sheets(4).Select
    Range("c2:n200").Select
    Selection.Clear
    Range("a1").Select
    'plan Dados_Carregados inicia na linha 2
    IdDestino = Worksheets(4).Range("a1")
    'Plan_BDAO inicia na linha 4
    IdOrigem = Worksheets(3).Range("a4")
    'Plan BDAO
    Sheets(3).Select
    Range("a4").Select
    Linha = ActiveCell.Row
    coluna = ActiveCell.Column
    contador = 2
 
    
    'neste caso a celula ativa esta iniciando na linha 5
      Do While ActiveCell.Value <> ""
       
       If ActiveCell = IdDestino Then
       Range("a" & Linha & ":" & "n" & Linha).Select
       
         Selection.Copy
         Sheets(4).Select
         Range("C" & contador).Select
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
         Application.CutCopyMode = False
         Sheets(3).Select
         ActiveCell.Offset(1, 0).Select
         Linha = Linha + 1
         contador = contador + 1
        
        
        
        Else
         ActiveCell.Offset(1, 0).Select
         Linha = Linha + 1
         
        End If
      Loop
        Sheets(4).Select
        Range("$D$2:$D$30").Select
        Selection.NumberFormat = "m/d/yyyy"
        Range("c" & contador).Select
        Application.ScreenUpdating = True
        MsgBox "Dados carregado com sucesso!!!", vbInformation, "Dados Gráfico"
    
 
End Sub

ficaria muito gratoo se alguem puder me ajudar

se quiserem entrar em contato meu e-mail é [e-mail]