Macro pra ler células e retorna valor

[vitorhsh]

Boa Tarde Familia 

 

Estou tentando cria uma macro que leia os valores procurado na Planilha "LIMITE DE SAQUE FOLHA" na aba LIMITE DE SAQUE FOLHA, e me retorno um valor conseguir cria uma macro mais ela procura os valores onde eu mandei percorre, e nesse caso 
a planilha podéra vim com os dados "ALTERADOS DE SEQUENCIA" nesse metodo que fiz ser incluir alguma linha onde busco os dados a macro da erro e nao acha o valor 
gostaria que ela lese os valores da coluna "C" se for '200006' ela vai para outra coluna a "E" se for '309 'ela vai para coluna "G" ser o valor for 0100000000 ela copia o valor da coluna " I " e cola na planilha folha gerencial na aba fonte e assim por diante, 

Obs: Cada "UG Executora Cod", tem sua vinculação 307, 309 ou 310, cada "UG Executora Cod" poderá ter 1, 2 ou 3 Vinculaçao
que ta relacionado a uma "Fonte de Recursos Detalhada Cod" 

Exp: "UG Executora Cod". 200006 tem vinculação com a 309 na "Fonte Recurso" 0100000000 pego saldo Atual e colo onde quiser 
eu não posso ter 2 309 na fonte 0100000000 mas posso ter uma 307 ou 310 ou as 3 juntas, mais nao se repete dentro da mesma Fonte 

Segue em anexo os arquivos e o codigo que ja criei Desde-ja agradeço 

Att, Vitor

Sub ReplicaDados()
  
  
Dim WSo As Worksheet, WSd As Worksheet, ug As Range, vcc As Range, wr As Range, ts As Range









Set WSo = Workbooks("LIMITE DE SAQUE FOLHA").Sheets("LIMITE DE SAQUE FOLHA")
Set WSd = ThisWorkbook.Sheets("Fontes")






  

     



 Set ug = WSo.Range("C:G").Find("200006")
If ug = ug Then
       Set vcc = WSo.Range("C:G").Find("310")
       
    If vcc = vcc Then
       Set wr = WSo.Range("C:G").Find("0100000000").Offset(0, 2)
       
       WSd.Range("J13").Value = wr.Value
       
       If wr = wr Then
   
        Set ug = WSo.Range("C:G").Find("200006")
        
        
        
        
        
        If vcc < vcc Then
        Set ts = WSo.Range("C:G").Find("0100000000").Offset(0, 2)
        
        
        WSd.Range("J21").Value = ug.Value
       
 
       
        
        
        
      End If
     End If
    End If
End If

  End Sub

 

Folha Geradora.xlsx

LIMITE DE SAQUE FOLHA.xlsx

[vitorhsh]

up