Copiando dados de uma planilha para outra via VBA

Antes de mais nada quero pedir desculpas caso esteja pedindo ajuda no lugar errado, é a primeira vez que uso o fórum.

Geralmente consigo resolver os problemas apenas com exemplos e adaptando os códigos na minha necessidade, mas desta vez não estou conseguindo, sou bem persistente e só peço ajuda quando realmente não sei mais o que fazer.

Será um tanto complicado explicar o que preciso, mas vou tentar de uma forma bem simples.

Tenho uma planilha que uso como modelo, nesta planilha tem diversas abas com tudo o que preciso, para não precisar ficar copiando e colando para cada cliente, na tela principal digito o nome do cliente, do responsável e o telefone, criei um botão que seria um "salvar como..." que pega o nome do cliente e salva numa pasta. Cada cliente tem sua planilha e são alteradas diariamente. Até aí tudo bem. Agora preciso criar outra tabela que pegue os valores da aba (ref) destas tabelas para saber quem está com pendencias.
Usei o código (copiando dados de uma planilha para outra via VBA) no mesmo botão que salva as planilhas na pasta, está criando as tabelas e também inserindo os valores da aba (ref) na planilha Pendentes, uma linha após a outra perfeito, agora vem o meu problema, o código copia mas as planilhas são alteradas diariamente e a planilha Pendentes não se atualiza. Teria uma solução pra isso? Por mim teria feito em Access ou Delphi mas infelizmente preciso fazer isso em Excel.

Desculpa se está confuso, sei que está, mas além de não conseguir resolver também não sei como explicar.

Vou deixar o código do botão que estou usando, quem sabe ameniza um pouco minha ignorância em relatar o problema.

Desde já, muito obrigado e desculpe caso tenha postado ou feito qualquer coisa fora das normas.

Código:

Sub salvar_como()
  
Private Sub CommandButton1_Click()

    Dim lngLastRow As Long
    Dim wksOri As Worksheet
    Dim wkbDes As Workbook
    Dim wksDes As Worksheet
    
    With ThisWorkbook
        Set wksOri = ThisWorkbook.Worksheets("Ref")
        Set wkbDes = Workbooks.Open("D:\Gerenciamento_Facovi\Dados\Pendentes")
        Set wksDes = wkbDes.Worksheets("dados")
    End With
        
        lngLastRow = wksDes.Cells(wksDes.Rows.Count, "D").End(xlUp).Row + 1
    
    
        wksDes.Cells(lngLastRow, "D") = wksOri.Range("=Ref!C2") 'Cliente
        wksDes.Cells(lngLastRow, "F") = wksOri.Range("=Ref!L2") 'Valor Débito
        wksDes.Cells(lngLastRow, "H") = wksOri.Range("=Ref!I2") 'Fone
        wksDes.Cells(lngLastRow, "J") = wksOri.Range("=Ref!F2") 'Contato
        
        Application.ScreenUpdating = True
        wkbDes.Close SaveChanges:=True

    If Range("D27") = ("") Then

    MsgBox "Inserir um nome para cliente."
Exit Sub
   Else
  
    CommandButton1.Enabled = False
    Dim sTempPath As String
        sTempPath = "D:\Gerenciamento_Facovi\Cadastrados\"
        ActiveWorkbook.SaveAs Filename:=sTempPath & Range("D27").Value & ".xlsm" _
        , FileFormat:=52, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        
    End If
    Range("D27") = ("")
    Range("D30") = ("")
    Range("D33") = ("")
    Range("D27").Select
    Application.Quit
    Application.DisplayAlerts = False

End Sub

Boa tarde!!

Tem como postar seu arquivo?

Use o sendspace, depois cole o link aqui!!


Cole o link camuflado (w*w*w*.sendspace.com)
Att

alexandrevba escreveu:

Boa tarde!!

Tem como postar seu arquivo?

Use o sendspace, depois cole o link aqui!!


Cole o link camuflado (w*w*w*.sendspace.com)
Att

Olá, segue link com o arquivo. Não repare no layout está bem exagerado, tem alguns erros que preciso ajustar, mas tirando o problema relatado está tudo sob controle.

Desde já muito obrigado pelo interesse.

w_w_w.sendspace.com/file/jghi3t

Boa tarde!!

Me desculpa, mas eu vou deixar o pessoal que entendeu a questão e que saiba resolver, responder sua dúvida  


Att

alexandrevba escreveu:

Boa tarde!!

Me desculpa, mas eu vou deixar o pessoal que entendeu a questão e que saiba resolver, responder sua dúvida  


Att

Sem problemas, mesmo assim obrigado, quem sabe uma hora eu encontro uma luz..rs